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The  logic  for  a  multi-user  relational  database  approach  to  managing  the  research 
catalog  is  addressed.  A  semantic  object  model  and  a  relational  diagram  are  developed  to 
create  a  conceptual  design  for  the  database.  Next,  the  application  process  and  description  of 
the  common  gateway  interface  (CGI)  scripts  are  presented.  Chapter  four  displays  and 
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L  INTRODUCTION 


This  thesis  documents  the  design  and  implementation  of  an  on-line  Faculty 
Research  Catalog  for  the  Information  Technology  Management  (ITM)  Group  of  the 
Systems  Management  (SM)  Department  at  the  Naval  Postgraduate  School  (NPS).  The 
on-line  research  catalog  contains  significant  research  information  by  ITM  professors  and  is 
accessed  via  the  World  Wide  Web  (WWW). 

A.  BACKGROUND 

A  recent  graduate  of  NPS,  Barbara  Franklin,  did  a  thesis  in  which  she  collected 
and  consolidated  the  ITM  professors’  diverse  backgrounds  and  various  research  interests 
in  an  attractive  brochure.  The  goal  of  the  brochure  is  to  provide  research  information  to 
the  many  geographically  dispersed  DOD/DON  agencies  and  solicit  research  sponsors  for 
further  research  opportunities.  This  brochure  is  in  a  hardcopy  and  electronic  form.  The 
electronic  form  currently  resides  as  a  series  of  static  web  pages  on  the  WWW. 

B.  PROBLEM  DEFINITION 

The  current  research  catalog  does  not  allow  the  ITM  professors  to  have  ownership 
and  easily  maintain  their  respective  pages  in  the  brochure.  Consequently,  these  static 
pages  have  not  been  updated  since  their  inception  last  September  and  are  quickly 
becoming  obsolete.  In  addition,  since  the  catalog  also  exists  as  a  series  of  web  pages, 
there  is  no  central  repository  to  contain  the  data.  As  a  result,  the  catalog  contains 
redundant  information.  Most  of  the  redundancy  occurs  between  the  faculty  research 
pages,  research  areas  and  recent  publications'  sections  of  the  catalog. 
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For  instance,  it  is  common  for  ITM  professors  to  co-author  a  publication.  This  same 
publication  may  appear  on  their  respective  research  pages  as  well  as  the  other  two  earlier 
mentioned  sections. 

C.  OBJECTIVE 

The  research  catalog  consists  of  common  fields  of  information  that  needs  to  be 
maintained  (add,  modify,  and  delete);  this  makes  the  catalog  the  ideal  candidate  to  store  its 
information  in  a  relational  database.  The  database  must  reside  on  a  server  that  will 
provide  an  acceptable  response  time. 

All  of  the  ITM  professors  have  access  to  the  internet.  The  internet  uses  a  protocol 
called  TCP/IP  that  allows  access  to  the  WWW  regardless  of  the  users  operating  platform. 
For  this  reason  the  on-line  research  catalog  is  a  WWW  client/server  application  that  allows 
ITM  professors  to  easily  and  immediately  maintain  their  own  research  information  and 
have  it  available  for  world  wide  access.  Figure  1  depicts  the  above  process. 


ITM 

Faculty 


Figure  1.  WWW  Client/Sever  Model  for  the  On-line  Research  Catalog 
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D.  METHODOLOGY 


A  review  of  the  existing  ITM  group  faculty  research  catalog  was  conducted  to 
familiarize  the  author  with  the  format.  Next,  selected  ITM  faculty  members  were 
personally  interviewed  to  obtain  additional  information  and  user  requirements.  The  author 
chose  Delphi,  an  object-oriented  language,  to  be  the  interface  between  the  user  and  the 
database.  A  context  diagram  and  data  flow  diagrams  were  developed  to  depict  the 
process  of  maintaining  the  ITM  research  catalog.  Finally,  a  semantic  object  model  and 
relational  diagram  were  created  to  design  the  database. 

The  author’s  recent  educational  background  in  systems  analysis  and  design 
methods,  relational  databases,  and  HTML  proved  to  be  extremely  helpful  in  the 
development  of  the  on-line  research  catalog  application.  The  author  assumed  the  roles  of 
ITM  faculty  member,  other  users  and  system  administrator  in  the  development  of  the 
application. 


3 


n.  THE  DESIGN  AND  IMPLEMENTATION  MODELS 


This  chapter  describes  the  semantic  object  model  as  a  database  design  model  and 
its  conversion  to  the  relational  model  for  implementation. 

A.  THE  SEMANTIC  OBJECT  MODEL 

The  research  catalog  database  was  designed  using  SALSA,  a  data  modeling  tool. 
The  semantic  object  model  of  the  data  maintained  by  the  research  catalog  is  shown  in 
Figure  2.  Below  is  a  brief  description  of  each  semantic  object.  A  semantic  object  is  a 
representation  of  some  identifiable  things  in  the  users’  work  environment  about  which  he 
wants  to  maintain[Ref  1]. 

•  Faculty  Account:  Gives  authorization  for  faculty  members  to  access  the 
database. 

•  Faculty:  Contain  detailed  information  about  each  faculty  member. 

•  Research_Page:  Documents  the  research  interests  of  a  faculty  member. 

•  Publication:  The  publications  that  a  faculty  member  written. 

•  Journal:  A  subset  of  the  Publications  object. 

•  Book:  A  subset  of  the  Publications  object. 

•  OtherJPub:  A  subset  of  the  Publications  object. 

•  Faculty  _Research_Area:  Research  categories  that  broadly  describe  research 
common  to  several  professors. 

•  ResearchSubarea:  Narrower  descriptions  of  some  of  the  broader  research 
areas. 

•  Research  Center/Lab:  Provides  a  description  of  each  center  or  laboratory, 
current  research  topics,  and  a  point  of  contact. 

•  Sponsor:  Identify  recent  sponsors  of  the  ITM  professors. 


5 


Sysad_Account:  Contains  account  information  on  the  person  who  monitors 
and  maintains  the  entire  contents  of  the  database. 


TO* 


FACULTY 


ID  FacultyCode^^ 

ID  FacuHiJName 
LastName  xa 
RrslName^^ 
Middlelnitial  o.t 

TMet. 

Degree 

School 

GradYear^^ 

Phone 

Emails, 

HomePageo.i 


P^FSEARCH  CENTERS.4.^S 


i  RESEARCH_SPGNSGRS  | 

j  RESEARCH  PASEl.. 

I  5YSAD_.ACC0UN‘T  j,,, 

iFACULTY_ACCOUML. 


i  RESEARCH  PAGE  □ 


ID  PageJD  -] 

IPftCULTVh,  J  ,, 

ResearchAreas 
R  esearchD  escription  x,i 
RdevanceloDODyDON 

i  ?ubucatioM1„„ 


QRESEARCH  SPONSORSp 


ID  Sponsor 


PUBLICATIONS 


ID  PubTittei^i 
Author 
PubYear,^ 

Month  01 
Note,, 

[JOURNALS  1,5, 

[other  pubsL.^ 

I  RESEARCH...^El,^. 

I  FACULTY  RESEARCH 

iRESEARCH_5UBAREA|^^ 


SFACULTy  RESEARCH  AREASId 


ID  ResearchAreaTWe,, 

R  esearchAreaBriel  o.i 
i  FUEUCATiONSln^ 
|RES£.ARCH_SUBAREAj, 


^  RESEARCH  SUBAREA~ln 


ID  ResearchSubAreaTitle, 


ResearchSuhAreaBrief  xa 
I  PUSUCATIGNS  Lx 
I  FAajLTY_RESEARCH_ARE^,. 


MrESEARCH  CENTERS/LABS 


ID  CenterofLabii 
CenterofLabO  verview 

[faculty  I,  H 


BOOKS 


I  iO  i  PU8UCA.T!ONSl» 
Publisher  xa 
Volume  Qi 
Series  f^x 
Edition 
Address 
street  „ 

OtVi., 

State 

2P0.1  JO., 


JOURNALS  □ 


ID  I  aiBLICATIONS  I 


Journal  amen 
Volume  Qx 
Number  q  ^ 
Pages,., 


MOTHER  PUBSll 

I  IP  [  PLIBUCATIONS I., 
Dtationoi 


SSYSAjji'ACCdUNTla 


ID  LogWD  n 
Password  n 
iFAaiLTVi:-., 


[^FACULTY  ACCOUNT]  □ 


ID  AccountJD 


n;uurR_iL/  -j 

iPADJLTYi»  J  „ 

Password  ^ 


Figure  2.  Semantic  Object  Model 
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B.  THE  RELATIONAL  MODEL 


The  semantic  object  model  cannot  be  directly  implemented  into  a  database. 
SALSA  provides  a  method  to  generate  a  database  schema  from  a  semantic  object  model. 
A  database  schema  defines  a  database’s  structure,  its  tables,  relationships,  domains,  and 
business  rules  [Ref.  1]. 

The  relational  model  is  a  particular  way  of  structuring  and  processing  a  database. 
It  shows  in  an  understandable  way  how  the  database  data  is  stored  as  tables  and  their 
relationship  to  one  another.  Figure  3  shows  the  data  that  is  stored  and  the  relationship 
among  the  rows  that  represents  tables  of  the  database. 
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Figure  3.  Relational  Diagram  of  the  Database 


The  complexity  of  the  database  is  clearly  represented  in  Figure  3.  For  instance,  a 
publication  can  be  a  journal,  book,  or  other  publication  type  and  can  have  one  or  more 
authors  that  may  or  may  not  all  be  ITM  professors  at  NFS.  Therefore,  the  best  approach 
to  uniquely  identify  a  publication  is  by  its  title.  Another  reason  for  the  complexity  of  the 
database  is  the  same  publication  can  appear  on  one  or  more  faculty’s  research  page  as 
well  as  the  research  areas/subareas.  This  is  because  a  research  area  can  have  subareas  and 
the  same  publication  can  exist  in  a  research  area  as  well  as  a  subarea  of  a  different  research 
area. 
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m.  APPLICATION  PROCESS 


This  chapter  discusses  the  contents  and  process  of  the  ITM  on-line  research 
catalog  application.  It  concludes  with  a  description  of  the  various  CGI  scripts  that 
comprises  the  catalog. 

A.  APPLICATION  CONTENTS 

The  database  content  of  the  on-line  research  catalog  consists  of  5  sections; 
faculty  research  pages,  faculty  research  areas,  research  centers  and  laboratories,  recent 
research  sponsors,  and  recent  publications.  A  discussion  of  each  section  is  presented 
below. 

The  faculty  research  page  provides  professional  information  about  each  ITM 
professor.  It  identifies  and  describes  their  research  specialty,  explains  the  relevance  of 
their  research  to  DOD/DON,  and  list  their  pertinent  research  publications.  _ 

The  faculty  research  areas  provide  brief  descriptions  of  the  ITM  group’s  research 
efforts.  Some  research  areas  are  too  broad  to  adequately  describe  some  of  the  professor’s 
research  efforts  and  are  broken  into  subareas.  The  research  areas  and  subareas 
(unbulleted  items)  are  arranged  as  follows: 

•  Database  Management  Systems 

•  Decision  Support  and  Expert  Systems 

Decision  Making  in  Dynamic  Environments 
Decision  Support  Systems 
Instructional  Multimedia  Systems 

•  Model  Management 
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•  Networks  and  Communications 


Distributed  Systems  and  Computer  Networks 
Telecommunication  Systems 

•  Software  Engineering  and  Applications  Development 
Application  Development 
Software  Engineering  and  Project  Management 
Software  Metrics 
Software  Reliability 

The  research  centers  and  laboratories'  section  provide  a  description  of  each  ITM 
center  or  lab.  It  explains  why  each  center  or  lab  was  formed,  and  list  a  point  of  contact. 

The  research  sponsors  section  gives  recognition  to  sponsors  of  recent  research 
projects.  Sponsors  are  listed  in  alphabetical  order. 

The  recent  pubhcations'  section  displays  a  listing  of  all  recent  publications  by  the 
ITM  group.  This  section  consists  of  the  publications  from  all  the  faculty  research  pages. 
B.  DATA  FLOW  DIAGRAMS 

This  section  uses  data  flow  diagrams  (DFDs)  to  depict  the  flow  of  data  through 
the  system  and  the  processes  that  are  performed  by  the  system.  As  shown  in  Figures  4 
and  5,  the  on-line  research  catalog  is  designed  for  three  types  of  users:  ITM  professors, 
system  administrator,  and  other  WWW  clients.  The  ITM  professors  and  system 
administrator  both  have  query  and  update  privileges.  The  other  WWW  clients  have  only 
query  privilege. 
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updates 


Figure  4.  Context  Diagram  For  ITM  Research  Catalog 


Figure  5.  Overview  DFD  For  ITM  Research  Catalog 


The  two  types  of  users  that  will  maintain  the  research  catalog  are  the  system 
administrator  and  ITM  professors.  Figure  6  shows  that  the  ETM  professors  can  only 
maintain  certain  parts  of  the  catalog,  whereas,  the  system  administrator  can  maintain  the 
entire  catalog.  A  major  user  requirement  of  the  catalog  is  to  allow  a  professor  to 
maintain  information  that  specifically  relates  to  his  research  page.  In  order  to  do  this, 
state  information  about  each  professor  passes  between  CGI  scripts  using  a  hidden  field.  A 
hidden  field  is  an  HTML  form  option  that  can  pass  data  to  CGI  scripts  without  requiring 
the  user  to  actually  enter  the  data.  The  other  areas  of  Figure  6,  except  for  maintain 
systems  account,  are  considered  common  areas,  e.g.,  relate  to  more  than  one  professor. 
For  this  reason,  the  system  administrator  is  the  only  person  allowed  to  update  those  areas 
for  the  purpose  of  keeping  system  integrity. 


Figure  6.  Middle  Level  DFD  For  ITM  Research  Catalog 
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Figure  7  shows  the  add,  modify,  and  delete  research  page  processes.  What  is  not 
shown  from  the  figure  is  a  professor  must  include  his  faculty  information  when  he  adds  a 
research  page  and  if  he  deletes  a  research  page,  he  also  deletes  his  faculty  information. 
This  is  done  to  prevent  a  research  page  fi'om  existing  without  its  respective  faculty 
information.  Although  faculty  information  is  part  of  a  research  page,  modification  of  a 
research  page  does  not  include  modification  of  faculty  information,  that  is  a  separate 
process  as  shown  in  Figure  8. 


Figure  7.  Primitive  Level  DFD  For  Maintaing  a  Research  Page 


Figure  8.  Primitive  Level  DFD  For  Maintaing  Faculty  Information 
Figure  9  shows  the  pubhcation  process.  A  professor  can  add  or  delete  a 
publication  only  from  his  research  page  and  desired  research  areas.  He  can  not  completely 
delete  a  publication  entirely  from  the  research  catalog.  The  logic  for  this  is  best  explained 
using  the  following  scenario.  Professor  1  may  have  co-authored  a  publication  with 
professor  2  who  has  the  publication  on  his  research  page.  If  professor  1  is  allowed  to 
delete  the  publication  entirely,  than  it  will  affect  professor  2’s  research  page.  Only  the 
system  administrator  can  delete  a  publication  entirely  from  the  catalog  assuming  all 
authors  involved  agree.  There  is  no  publication  modification  process  because  the  title  of 
the  publication  is  its  key  and  cannot  be  modified. 
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Figure  9.  Primitive  Level  DFD  For  Maintaining  Publications 


One  of  the  objectives  of  the  on-line  research  catalog  is  to  attract  sponsors  to 
financially  assist  the  ITM  professors  in  their  research  efforts.  Each  professor  can  add  and 


delete  his  respective  sponsors,  Figure  10. 


Figure  10.  Primitive  Level  DFD  For  Maintaining  Sponsors 
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A  professor  must  have  an  account  in  order  to  maintain  his  own  research  page.  An 
account  contains  a  professor’s  unique  faculty  code  and  password  that  he  enters  to  log  into 
the  system.  The  system  administrator  is  the  only  person  that  can  add  or  delete  an  account 
for  a  professor.  Figure  11.  Once  a  professor  has  an  account,  he  can  modify  it,  Figure  12. 
Modifying  a  faculty  account  only  entails  changing  the  password;  the  faculty  code  cannot 
be  changed.  If  a  professor’s  account  is  deleted,  he  can  no  longer  log  into  the  catalog  to 
maintain  his  research  information.  Therefore,  the  system  administrator  should  only  delete 
a  faculty  account  on  the  departure  of  the  respective  professor  from  the  ITM  group. 
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Figure  11.  Primitive  Level  DFD  For  Maintaining  Faculty  Account 
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Figure  12.  Primitive  Level  DFD  For  Maintaing  Faculty  Account 


The  remaining  Figures,  13-15,  are  only  processes  that  are  only  maintained  by  the 


system  administrator  and  are  self-explanatory. 


Figure  13.  Primitive  Level  DFD  For  Maintaining  System  Account 
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Figure  14.  Primitive  Level  DFD  For  Maintaining  Research  Centers/Labs 


Figure  15.  Primitive  Level  DFD  For  Maintaing  System  Account 
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C.  CGI  SCRIPTS  DESCRIPTION 


CGI  scripts  are  short  programs  that  execute  in  real  time  and  reside  in  a  special 
directory  of  a  web  server.  They  lend  themselves  particularly  well  to  the  task  of  accessing 
a  database.  CGI  scripts  are  written  in  different  programming  languages.  The  on-line 
research  catalog  scripts  are  written  in  Delphi  and  can  be  categorized  into  the  following 
groups:  add,  modify,  browse,  and  delete. 

1.  Add  Scripts 

These  scripts  display  an  HTML  input  form  to  collect  information  on  what  the  user 
wants  to  add,  i.e.,  a  research  page,  publication,  etc.,  to  the  database.  Once  the 
information  is  collected  another  form  accepts  the  data  and  adds  it  to  the  appropriate  tables 
in  the  database. 

2.  Modify  Scripts 

These  scripts  use  an  HTML  form  to  display  current  information  about  the  item  the 
users  want  to  update.  The  user  can  make  any  desired  changes  on  the  form.  Once 
submitted,  it  is  received  by  another  script  that  takes  this  new  data  and  modifies  the 
appropriate  tables. 

3.  Browse  Scripts 

The  browse  scripts  do  not  accept  any  data,  just  displays  it.  The  browse  research 
centers/labs  are  the  only  browse  scripts  that  have  links  to  other  HTML  pages. 
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4.  Delete  Scripts 

There  are  two  types  of  delete  scripts:  one  that  permanently  removes  the 
information  from  the  database  and  the  other  just  removes  it  from  being  displayed.  The 
latter  applies  only  in  the  case  of  publications.  For  example,  a  publication  can  be  deleted 
from  a  research  page  and/or  research  area.  The  publication  still  exists  in  the  database,  but 
is  removed  from  the  selected  item(s).  If  a  publication  needs  to  be  deleted  entirely  from  the 
database,  only  the  system  administrator  has  the  privilege  to  perform  that  task. 
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IV.  THE  USER  INTERFACE 


This  chapter  describes  the  main  user  interfaces  for  the  three  different  types  of  on¬ 
line  research  catalog  users:  WWW  clients,  ITM  faculty,  and  system  administrator.  All 
users  with  a  frames  capable  browser  will  first  access  the  welcome  page,  Figure  16.  Then, 
depending  on  the  type  of  user  they  are,  will  mainly  interact  with  one  of  three  menus. 


file  Edit  \fiew  go  Bookmarks  Options  Rirectoiy  Window  Help 


Figure  16.  Welcome  Menu 
A.  WWW  CLIENTS 

The  WWW  cUents  can  view  the  contents  of  the  research  catalog  by  selecting  the 
browse  catalog  option  from  Figure  16.  The  Browse  Menu,  Figure  17,  is  then  displayed  to 
allow  the  user  to  select  the  items  he  wants  to  view. 
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If  a  user  wants  to  view  a  faculty  research  page,  he  can  select  from  the  drop  down 
list  of  ITM  professors.  The  drop  down  list  is  in  alphabetical  order  by  last  name. 

The  display  research  area  option,  lets  a  user  view  the  several  broad  ITM  research 
areas.  If  a  user  selects  a  research  area  that  has  subareas,  he  is  asked  to  pick  a  research 
subarea  to  view.  A  research  area  and  research  subarea  have  identical  structures,  i.e.,  they 
both  have  a  brief  description  and  publications  associated  with  them. 

The  research  centers  and  labs  describe  current  research  projects  by  some  of  the 
ITM  faculty.  A  user  can  view  a  research  center  or  lab  by  selecting  the  browse  research 
centers  and  labs  option. 

One  of  the  main  objectives  of  the  research  catalog  is  to  solicit  sponsors  for  further 
research.  A  list  of  the  current  research  sponsors  is  viewed  by  selecting  “Sponsors”  on  the 
Browse  Menu. 

The  ITM  professors  have  written  many  publications  documenting  their  research 
knowledge  and  findings.  They  can  be  viewed  by  selecting  “Publications.” 

B.  ITM  FACULTY 

A  professor  can  access  the  catalog  to  browse  its  contents  or  update  his  research 
information.  If  the  latter,  he  has  to  log  into  the  catalog.  Each  faculty  member  is  given  a 
faculty  code  and  password  that  must  be  entered  correctly  to  access  the  available 
selections  on  the  Catalog  Menu,  Figure  18. 
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Figure  18.  The  Catalog  Menu 
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C.  SYSTEM  ADMINISTRATOR 


The  system  administrator  must  log  into  the  catalog  using  his  login  ID  and 
password  to  perform  any  maintenance  tasks.  Once  he  is  successfully  logged  in.  Figure 
19,  is  displayed  for  him  to  choose  his  selections.  The  system  administrator’s  “Main 
Menu”  has  more  options  available  than  the  other  two  menus,  because  he  has  the 
capabilities  of  those  menus  as  well  as  additional  ones  to  maintain  the  catalog’s  integrity. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

This  thesis  is  a  major  improvement  to  Barbara  Franklin’s  static  research  catalog 
web  pages.  It  describes  the  development  and  implementation  of  a  relational  database 
approach  to  easily  and  quickly  maintain  the  catalog.  This  seemed  to  be  the  most  logical 
solution,  since  there  are  relations  between  the  common  fields  that  must  be  navigable  by  the 
system;  these  relations  are  most  effectively  accomplished  by  relational  join  operations.  By 
having  the  application  on  a  WWW  server,  it  makes  the  research  catalog  possible  to  be 
viewed  by  potential  sponsors,  various  DOD  agencies,  and  millions  of  people  who  have  a 
frames  capable  browser  and  access  to  the  WWW.  Another  important  advantage  of  having 
the  catalog  on  a  server  is:  (a)  it  can  be  maintained  by  the  ITM  faculty,  and  (b)  can  be  done 
so,  regardless  of  their  operating  platform.  This  is  due  to  the  TCP/IP  protocol  that  the 
WWW  uses.  TCP/IP  allows  reasonably  efficient  and  error-fi-ee  transmission  between 
different  systems[Ref  2]. 

The  structured  techniques  used  were  critical  in  the  design  and  implementation  of 
the  application.  The  key  to  the  successful  completion  of  the  catalog  is  the  perseverance 
and  over  300  arduous  hours  the  author  spent  self-learning  and  programming  in  Delphi. 

The  application  system  developed  in  this  thesis  will  require  the  attention  of  a 
system  administrator  to  function  properly.  It  is  recommended  that  Christine  Smith  who 
currently  manages  the  web  pages  for  the  SM  Department,  be  the  system  administrator  for 
the  application.  Ideally,  access  to  the  catalog  should  occur  via  a  link  from  the  SM 
Department’s  home  page.  This  would  provide  the  best  means  for  the  ITM  professors  and 
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other  WWW  clients  to  use  the  system.  Next,  the  professors  need  to  be  informed  about  the 
system  and  given  an  account.  Once  this  is  done,  the  professors  can  use  the  system  at  their 
leisure.  The  author  does  not  anticipate  any  need  for  formal  training  on  how  to  use  the 
system;  the  users'  interfaces  are  pretty  intuitive.  The  professors  should  notify  the  system 
administrator  if  they  have  any  questions,  problems,  or  changes  they  desire  that  only  the 
system  administrator  can  perform. 

B.  RECOMMENDATIONS 

Future  work  is  needed  to  make  the  on-line  research  catalog  an  even  better  product. 
The  current  catalog  does  not  use  dynamic  SQL  statements  or  has  search  capabilities. 
Dynamic  SQL  statements  are  statements  that  are  not  bound  at  design-time,  but  instead  are 
bound  when  executed  by  using  parameterized  SQL  statements[Ref  3].  Parameterized 
queries  give  you  more  flexibility  in  varying  the  condition  on  which  you  base  your  SQL 
statements[Ref  3].  A  search  feature  would  greatly  assist  users  in  immediately  finding  the 
exact  information  they  want.  As  the  system  stands  now,  a  user  has  to  browse  through  the 
catalog  to  ascertain  if  it  contains  any  information  he  desires.  Also,  counters  regarding  the 
number  of  times  the  catalog  pages  have  been  accessed  would  provide  statistical 
information  on  the  exposure  of  the  research  catalog. 


28 


APPENDK.  CGI  SCRIPTS 


A.  WWW  CLIENTS  SCRIPTS 

1.  Browse  Catalog  Menu  Script 
unit  Browcatl; 
interface 
uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

CGffinvDatal:  TCGffinvData; 

DataSourcel:  TDataSource; 

Query  1 :  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSourceS;  TDataSource; 

QueryS:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do 
begin 
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(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(standard  header  information} 

send(  '<HTML><HEAD>' ); 

sendTitle(  Browse  Catalog  Menu' ); 

send(  '</BEADxBODY  BGCOLOR="ADEAEA">' ); 

send  ('<centerxHl>Browse  Catalog  Menu</Hlx/center>'); 

(List  items  that  a  user  can  browse) 
sendHR; 

send('<H3>ITM  Faculty  Research  Pages</H3>'); 
send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win^rowse/dsp_pge.exe">'); 
send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECTNAME="FacultyCode"  TYPE="text"  SIZE=1>') 

with  Query  1  do  (List  faculty  options  by  last  name} 
begin 
close; 

SQL.Add('SELECT  FacultyCode,  LastName'); 

SQL.  AddCFROM  Faculty '); 

SQL.  AddCORDER  BY  LastName’); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName(FacultyCode').  AsString+"'>'); 
send(FieldByName('LastName').AsString); 
next;  (puts  cursor  on  next  record} 
end; 
close; 

end;  (End  Query  1 } 
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send('</SELECTx/TT)x/TR>'); 
send('<TRxTD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="  Submit  Selection"  ALIGN="MIDDLE">'); 

send(’</IDx/FORMx/TABLE>'); 

send('</center>'); 

sendHR; 

send('<H3>  ITM  Faculty  Research  Areas</EI3>'); 
send('<center>'); 

sendC<TABLE  B0RDER=5  CELLPADDING=5>’); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
send("'http;//13 1 . 120.39.65/cgi-win/browse/dsp_area.exe">'); 
send('<TR>'); 

send(’<TD  ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 


with  Query2  do  {List  Research  Areas  Options) 

begin 
close; 

SQL.  Add('SELECT  DISTINCT  ResearchAreaTitle'); 

SQL.  AddCFROM  RES_AREA '); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName('ResearchAreaTitle').AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next;  (puts  cursor  on  next  record) 
end; 
close; 

end;  (End  Query  2) 
send('</SELECTx/TDx/TR>'); 
sendC<TRXrD  ALIGN="CENTER">’); 

send(’<INPUT  TYPE=SUBMIT  VALIIE=" Submit  Selection"  ALIGN="MIDDLE">'); 

send(’</TDx/FORMx/TABLE>'); 

send('</center>'); 
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sendHR; 

send('<H3>Research  Centers  and  Labs</EB>'); 
send('<center>'); 

sendC<TABLEB0RDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-win^rowse^^s_labs.exe">'); 
send('<TR>'); 

sendC<TD  ALIGN=''CENTER"xSELECTNAME="CenterorLab"  TYPE="text"  SIZE=1>’); 

with  Query3  do  {List  Research  Centers  And  Labs  Options} 

begin 
close; 

SQL.AddCSELECT  CenterorLab'); 

SQL.  Add(TROM  RES_CENT '); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByNameCCenterorLab').AsString+"’>'); 
send(FieldByName('CenterorLab').AsString); 
next;  (puts  cursor  on  next  record} 
end; 
close; 

end;  (End  Query  3} 
sendC</SELECTx/TD></TR>'); 
send('<TRxTD  ALIGN="CENTER">’); 

send('<I]SIPUT  TYPE=SUBMIT  VALUE=" Submit  Selection"  ALIGN="MIDDLE">'); 

send('</TDx/FORMx7TABLE>'); 

send('</center>'); 

sendHR; 

send('<H3>Other  Areas</H3>'); 
send('<CENTER> '); 

sendC<TABLEBORDER=5  CELLPADDING=5>'); 
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send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/browse/brs_spon.exe">'); 
send('<TD  ALIGN="CENTER''xlNPUT  TYPE=SUBMIT 
VALUE="Sponsors''x/TDx/FORM>’); 


send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-\vin^rowse/brs_pubs.exe">'); 
send('<TD  ALIGN=''CENTER'’xlNPUT  TYPE=SUBMIT 
VALUE="PubUcations"x/TDx/FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send(  '</BODY></HTML>' ); 
closeStdout; 
closeAPP(application); 
end; 
end; 
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2.  Browse  ITM  Faculty  Research  Page 
unit  Dsp_pgel; 
interface 
uses 

SysUtils,  WinT5?pes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGDEnvData; 

CGIDB  1;  TCGIDB; 

DataSourcel:  TDataSource; 

Queryl :  TQuery; 

CGIDB2;  TCGIDB; 

DataSource2:  TDataSource; 

Queiy2:  TQuery; 

CGIDB3:  TCGIDB; 

DataSourceS:  TDataSource; 

QueiyS:  TQuery; 

CGIDB4:  TCGIDB; 

DataSource4:  TDataSource; 

Query4:  TQuery; 

procedure  FonnCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

FacultyCode ;  string; 
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begin 


with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
websitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

FacultyCode  :=  GetSmallFieldCFacultyCode'); 

(build  research  page  using  join  of  necessary  tables} 
with  queryl  do 
begin 
close; 

SQL.  clear; 

SQL.Add('SELECT  DISTINCT  * '); 

SQL.  Add(TROM  FACULTY,RES_PAGE'); 

SQL.  AddCWHERE  RES_PAGE.FacultyCode  =  FACULTY.FacultyCode ' ); 
SQL.  Add('AND  RES_PAGE.FacultyCode  = +  FacultyCode  +""); 
open; 

send(  ’<HTMLXHEAD>' ); 

sendTitle(  Display  Research  Page' ); 

send(  '</HEADXBODYBGCOLOR="ADEAEA">' ); 

send('<centerxHl>ITM  Faculty  Research  Page</hl></center>'); 
if  FacultyCode  =  'SM/Ah'  then 

send(’<IMG  ALIGN=Left  SRC="http://13 1.120.39.65/ITM/Pictures/Ah.gif’>’) 
else  if  FacultyCode  =  'SM/Bd'  then 

sendC<IMG  ALIGN=Left  SRC="http://13 1. 120.39.65/rrM/Pictures/Bd.gif '>') 
else  if  FacultyCode  =  'SMyDh'  then 

send('<IMG  ALIGN=Left  SRC="http;//13 1. 120.39.65/ITM/Pictures/Bh.gif' >’) 
else  if  Facult5Ki;ode  =  'SM/Bu*  then 

send('<IMG  ALIGN=Left  SRC="http://13 1.120.39.65/ITMZPictures/Bu.gif'>') 
else  if  FacultyCode  =  'SM/Dk'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 . 120.39.65/ITM/Pictures/Dk.gif ’>') 
else  if  FacultyCode  =  'SM/Ey'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1.120.39.65/ITM/Pictures/Ey.gif' >') 
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else  if  FacultyCode  =  'SM/FW  then 

send('<IMG  ALIGN=Left  SRC=''http;//13 1 J20  J9.65/rrM/Pictures/Fw.gif '>') 
else  if  FacultyCode  =  'SM/Hg'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 . 120.39.65/ITM/Pictures/Hg.gif' >') 
else  if  FacultyCode  =  'SM/Ka'  then 

sendC<IMG  ALIGN=Left  SRC="http://13 1. 120  J9.65/ITMZPictures/Ka.gif ’>') 
else  if  FacultyCode  =  'SM/Ra'  then 

send(’<IMG  ALIGN=Left  SRC="http://13 1. 120.39.65/ITM/Pictures/Ra.gif' >') 
else  if  FacultyCode  =  'SM/Se'  then 

send('<IMG  ALIGN=Left  SRC=''http://13 1 J20  J9.65/ITM/Pictures/Se.gif '>') 
else  if  FacultyCode  =  'SM/Ss'  then 

send(’<IMG  ALIGN=Left  SRC="http://13 1. 120.39.65/ITM/Pictures/Ss.gif '>') 
else  if  FacultyCode  =  'SM/Sr'  then 

send('<IMG  ALIGN=Left  SRC=''http://13 1. 120.39.65/ITM/Pictures/Sr.gif 
sendC<UL>'); 

send(FieldByName('LastName').AsString); 

send(FieldByName(TirstName').AsString); 

send(FieldByNanie('MiddleInitial').AsString); 

send('<BR>'); 

send(FieldByName('Title').AsString); 

send('<BR>'); 

send(FieldByName('Degree').AsStiing); 
sendC '); 

send(FieldByName('Schoor).AsString); 
sendC,  •); 

send(FieldByName('GradYear’).AsString); 

send('<BR>'); 

send(FieldByName('PhoneAreaCode').AsString); 

send(FieldByName('PhoneLocalNumber').AsString); 

sendC<BR>'); 

sendlFieldByNameCEmail^AsString); 

send('<BR>'); 

send(FieldByNanie('HomePage').AsString); 
sendC</ULxBR  CLEAR=LEFT>'); 


send('<BR>'); 

send('<P>'); 

send('<BXH3>Research  Areas</H3x/B>'); 

CGDDB 1 .  SendMemo(FieldByName(ResearchAreas')); 

send('<P>'); 

send('<B><HB>ResearchDescription</H3x/B>'); 
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CGIDB 1 .  SendMemo(FieldByName('ResearchDescription')); 
send('<P>'); 

send('<BXH3>Relevance  to  DOD/DON</EDx/B>'); 

CGIDB  1 .  SendMemo(FieldByName('RelevancetoDOD/DON')); 

Query  1.  close; 
end;  (Query  1} 

Send('<P>’); 

Send('<BXH3>RecentPublications</H3x/B>'); 

With  query2  do 
begin 
close; 

SQL.  clear; 

SQL.AddCSELECT  * '); 

SQL.  Add(TROM  PAGEPUB,PUBS,  JOURNAL'); 
SQL.Add('WHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  JOURNAL.PubTitle'); 
SQL.Add('AND  PAGEPUB. Faculty  Code  = +  FacultyCode  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB2.  SendMemo(FieldByName(' Author')); 

send(',’); 

send(""); 

send(FieldByNanie('PubTitle').AsString); 

sendC",'); 

send('<i>'); 

send(FieldByName('Jouma[ISrame').AsString); 

send('</i>'); 

If  FieldByname('Volume').AsString  o  "then 
begin 

send('Vor); 

send(FieldByName('Volume').AsString); 

end; 

If  FieldBynanie(Number').AsString  o  "then 

begin 

sendCNo'); 

send(FieldByName('Number').AsString); 


37 


end; 

send(FieldByName('PubMonth').AsString); 

sendOFieldByName^TubYear^AsString); 

If  FieldByname('Pages').AsString  o  "then 

begin 

send(':'); 

send(FieldByName('Pages').AsString); 

end; 

sendOFieldByNameCNote^AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 

Query2.close; 
end;  (Query  2} 

With  queryS  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  *  '); 

SgLAddCFROM  PAGEPUB,PUBS,OTHERPUB'); 
SQL.Add(WHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  OTHERPUB.PubTitle'); 
SQL.Add('AND  PAGEPUB.FacultyCode  =  +  FacultyCode  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB3 .  SendMem6(FieldByName(' Author')); 

sendC,'); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send('",'); 

CGIDB3 .  SendMemo(FieldByName('Citation')); 

send(FieldByName('PubMonth').AsString); 

send(FieldByName(TubYear').AsString); 

sendC<BR>'); 

send('<BR>'); 

next;  (puts  cursor  on  next  record} 
end; 
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QueryS. close; 
end;  {Query  3} 

With  query4  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add(TROM  PAGEPUB,PUBS, BOOKS'); 

SQL.  AddC-WHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  BOOKS.PubTitle'); 
SQL.Add('AND  PAGEPUB.FacultyCode  =  "'  +  FacultyCode  +""); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

CGIDB4.SendMemo(FieldByName(' Author*)); 

send(’,’); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send('",'); 

send(FieldByName('Volume').AsString); 

send(FieldByName('Series').AsString); 

send(FieldByName(Edition').AsString); 

send(FieldByName('Publisher') .  AsString); 

send(FieldByName('Street').AsString); 

send(FieldByName('City').  AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

send(FieldByName(PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record) 
end; 

Query4.close; 
end;  {Query4) 


send('<p>'); 

sendHR; 

send('<p>'); 
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{send  user  back  to  Browse  Menu} 

send('<CENTER>’); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win/browse^rowscat.exe">'); 
send('<input  type="subniit"  value="Browse  Catalog  Menu">'); 
send('</form>'); 
send('</CENTER>'); 

send(  '</BODY></EnML>' ); 

closeStdout; 
closeApp(  application  ); 

end; 

end; 
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3.  Browse  Research  Areas 


unit  Dspareas; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Queryl:  TQuery; 

CGIDB2:  TCGIDB; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSourceS:  TDataSource; 

Tablel;  TTable; 

CGIDB3:  TCGIDB; 

DataSource4:  TDataSource; 

QueryS:  TQuery; 

CGIDB4:  TCGIDB; 

DataSourceS:  TDataSource; 

Query4:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
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ResearchAreaTitle :  string; 

SubAreasExist  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
websiteHSHFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

ResearchAreaTitle  :=  GetSmallField(ResearchAreaTitle'); 

send(  '<inML><HEAD>' ); 
sendTitle(  "Display  Research  Areas' ); 
send(  '</HEADXBODY  BGCOLOR="ADEAEA">' ); 
send('<centerxHl>ITM  Faculty  Research  Areas</hlx/center>'); 

withTableldo  (Search  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist  :=  Table l.FieldByName('SubAreas').AsString; 

Tablel. close; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('<h3>The  research  area  you  selected  to  browse  has  research '); 
send('subareas.  Choose  the  research  subarea  you  want  to  browse.</h3>'); 
send('<P>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 
send('<FORM  METHOD  =  POST  ACTION= '); 
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send("'http;//13 1. 120.39.65/cgi-win^^owse/pub2sub.exe">'); 
send('<TR>'); 

send('<TDxSELECTNAME="ResearchSubAreaTitle''  TYPE="text"  SIZE=1>'); 

with  Queryl  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SQL.Add(TROM  RES_SUBA'); 

SQL.Add('WHERE  RES_SUBA.ResearchAreaTitle  =  +  ResearchAreaXitle  + 

open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

whUe  not  EOF  do 
begin 

sendC<OPTIONVALUE='"+FieldByName(ResearchSubAreaTitle').AsString+"'>’); 

send^ieldByName(ResearchSubAreaTitle').AsString); 
next;  {puts  cursor  on  next  record) 
end; 

Queryl.  close; 
end; 

send(’</SELECTx/TDX/TR>’); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Subniit  Information’'>'); 
send('</FORM>'); 


send('<P>'); 


send('<FORM  method=post  action="'+ 

'http://13 1 . 120.39.65/cgi-Avin/brows^rowscat.exe">'); 

send('<input  type="  submit"  value="Cancel,  Return  to  Browse  Catalog  Menu">'); 

send('</form>'); 

send('</CENTER>'); 

end 

else  {no  subareas) 

begin  {build  research  page  using  join  of  necessary  tables) 
with  queryl  do 
begin 
close; 
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SQL.clear; 

SQL.  Add('SELECT  DISTINCT  *  ’); 

SQL.  Add(TROM  RES_AREA'); 

SQL.  Add('\VBERE  RESAREAResearchAreaTitle  =  +  ResearchAreaTitle 
open; 

sendC<B>'); 

send(FieldByName('ResearchAreaTitle').AsString); 

send('</B>'); 

send('<P>'); 

CGIDB 1 .  SendMemo(FieldByName('ResearchAreaBrief )); 
send('<P>'); 
close; 
end; 

send('<H4>Publications:</H4>'); 

send('<P>'); 

With  query2  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.  Add('FROMPUBAREA,PUBS, JOURNAL'); 

SQL.AddCWHERE  PUBAREAPubTitle  =  PUBS.PubTitle’); 

SQL.  Add(’AND  PUBS.PubTitle  =  JOURNAL.PubTitle’); 

SQL.Add('AND  PUBAREA.ResearchAreaTitle  =  +  ResearchAreaTitle  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB2.SendMenio(FieldByName(' Author*)); 

send(’,'); 

send(""); 

send(FieldByName(PubTitle').AsString); 

sendC",'); 

send('<i>'); 

send(FieldByName('JoumaIName').AsString); 

send('</i>'); 

If  FieldByname('Volume').AsString  o  "then 
begin 

send('Vor); 
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send(FieldByName('Volume').AsString); 

end; 

If  FieldBynameCNumber').  AsString  o  "then 

begin 

sendCNo'); 

send(FieldByName('Number').AsString); 

end; 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 

If  FieldBynameCPages').  AsString  o  "then 

begin 

send(';'); 

send(FieldByName('Pages').AsString); 

end; 

send(FieldByName('Note').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 

close;  (close  query  2} 
end; 

With  queryS  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add(TROM  PUB  AREA,PUBS, BOOKS'); 

SQL.Add('WHERE  PUBAREA.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBSPubXitle  =  BOOKS.PubTitle'); 

SQL.Add('AND  PUBAREAResearchAreaXitle  =  +  ResearchAreaXitle 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

GGIDB4.  SendMemo(FieldByName(' Author*)); 

sendC,*); 

send('"'); 

send(FieldByNanie('PubXitle').AsString); 

send(’",'); 

send(FieldByName('Volume').  AsString); 
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send(FieldByName('Series').AsStrmg); 

send(FieldByName('Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByName('Street').AsString); 

send(FieldByName('City').AsString); 

send^ieldByName('State').AsString); 

send(FieldByNaine('Zip').AsString); 

send^ieldByName(TubMonth').AsString); 

send^ieldByName('PubYear').AsString); 


send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 

close;  {Query  3} 
end; 

With  query4  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  ♦ '); 

SQL.  Add^TROM  PUBAREA,PUBS,OTHERPUB'); 

SQL-AddCWHERE  PUBAREA.PubTitle  =  PUBSPubTitle’); 

SQL.Add('AND  PUBSPubTitle  =  OTHERPUB.PubTitle'); 

SQL.AddCAMD  PUBAREA.ResearchAreaTitle  = +  ResearchAreaTitle  +""); 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB4.SendMemo(FieldByName(Author')); 

send(V); 

send(""); 

send(FieldByName(PubTitle').AsString); 

send("’,'); 

CGIDB4.  SendMemo(FieldByNanie('Citation')); 

send(FieldByName('PubMonth').AsString); 

send^ieldByNaine(PubYear').AsString); 


send('<BR>'); 

send('<BR>’); 

next;  {puts  cursor  on  next  record} 
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end; 

close; 

end; 

sendHR; 

(send  user  back  to  Browse  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win^rowse^^owscat.exe''>'); 
send('<input  type="submit"  value="  Browse  Menu">'); 
send('</form>'); 
send('</CENTER>’); 

end;  {End  Else  Part} 

send(  '</BODYx/EnML>' ); 

closeStdout; 

closeApp(  application  ); 

end; 

end; 

end. 

{  Browse  Research  SubAreas} 

unit  Pub2subl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2;  TQuery; 

CGIDB  1:  TCGIDB; 

CGIDB2:  TCGIDB; 
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CGIDB3:  TCGIDB; 

DataSourceS:  TDataSource; 

Query3:  TQuery; 

CGIDB4:  TCGIDB; 

DataSource4:  TDataSource; 

Query4:  TQuery; 

procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

ResearchSubAreaTitle :  string; 
begin 

with  CGEEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
websitelNIFDename  :=  paramstr(l); 
application.  onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

ResearchSubAreaTitle  :=  GetSmalIField(ResearchSubAreaTitle'); 

send(  ’<HTMLXHEAD>' ); 

sendTitle(  Display  Research  SubAreas' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">’ ); 

send('<centerXHl>ITM  Faculty  Research  SubArea<Ailx/center>'); 
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{build  research  page  using  join  of  necessary  tables} 
with  queryl  do 
begin 
close; 

SQL.clear; 

SQL. Add('SELECT  DISTINCT  *  ’); 

SgL-AddCTROM  RES_SUBA'); 

SQL.Add^WHERE  RES_SUBA.ResearchSubAreaTitle  =  +  ResearchSubAreaTitle 
open; 

send('<B>'); 

send(FieldByName('ResearchSubAreaTitle').AsString); 

send('</B>'); 

send('<P>'); 

CGBDB 1 .  SendMemo(FieldByName('ResearchSubAreaBrief)); 
send('<P>'); 
close; 
end; 

send('<H4>Publications:</H4>'); 

send('<P>’); 

With  query2  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add(TROMPUBSAREA,PUBS, JOURNAL’); 

SQL.Add('WHERE  PUBSAREAPubTitle  =  PUBS.PubTitle'); 

SQL.Add('AND  PUBSPubTitle  =  JOURNAL.PubTitle’); 

SQL.Add('AND  PUBSAREAResearchSubAreaTitle  = +  ResearchSubAreaTitle  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

CGIDB2.SendMemo(FieldByName(' Author')); 

sendC,’); 

send(""); 

send(FieldByNanie(PubTitle').AsString); 

sendC",'); 

send('<i>'); 

send(FieldByName('JoumaIName').AsString); 
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send('</l>'); 

If  FieldByname('Volume').AsString  o  "then 
begin 

send('Vor); 

send(FieldByName('Volume').AsStrmg); 

end; 

If  FieldByname('Number').AsString  o  "then 

begin 

sendCNo'); 

send(FieIdByName('Number').AsString); 

end; 

send(FieldByName('PubMonth').AsString); 

send(FieldByNanie('PubYear').AsString); 

If  FieldByname('Pages').AsString  o  "then 

begin 

send(':'); 

send(FieldByName('Pages').AsString); 

end; 

send(FieldByNaine('Note').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  (puts  cursor  on  next  record} 
end; 

close;  {close  query  2} 
end; 

With  queryS  do 
begin 
close; 

SQL.  clear; 

SQL.AddCSELECT  *  '); 

SQL.Add(TROM  PUBSAREA,PUBS,BOOKS’); 

SQL.Add^WHERE  PUBSAREAPubTitle  =  PUBS.PubTitle'); 

SQL.AddCAND  PUBS.PubTitle  =  BOOKS.PubTitle'); 

SQL.Add('AND  PUBSAREA-ResearchSubAreaXitle  = +  ResearchSubAreaTitle  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB4.SendMemo(FieldByName(' Author')); 
send(','); 
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send(""); 

send(FieldByName('PubTitle').AsString); 

send("','); 

send(FieldByName('Volume').AsStrmg); 

send(FieldByName('Series').AsString); 

send(FieldByName('Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByName('Street').AsString); 

send(FieldByNaine('City').AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

sendCFieldByName^TubMonth^AsString); 

send(FieldByName('PubYear').AsString); 

send('<BR>'); 

send('<BR>’); 

next;  {puts  cursor  on  next  record} 
end; 

close;  (Query  3} 
end; 

With  query4  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.  Add(TROM  PUBSAREA,PUBS,OTHERPUB'); 

SQL.AddCWHERE  PUBSAREA.PubTitle  =  PUBS.PubTitle'); 

SQL.Add('AND  PUBS.PubTitle  =  OTHERPUBPubTitle'); 

SQL.Add('AND  PUBSAREAResearchSubAreaTitle  = +  ResearchSubAreaTitle  +""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB4.SendMemo^ieldByName(' Author*)); 

send(','); 

send(""); 

send^ieldByName('PubTitle’).AsString); 

sendC",*); 

CGIDB4.SendMemo(FieldByName('Citation')); 

send(FieldByName(TubMonth').AsString); 

send^ieldByName(TubYear').AsString); 
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send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

sendHR; 

(send  user  back  to  Browse  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input  type="subniit"  value="  Browse  Catalog  Menu">'); 
send('<7form>'); 
sendC<yCENTER>'); 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 
end; 
end. 
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4.  Browse  Research  Centers/Labs 


unit  Brslabs; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal :  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel;  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

CenterorLab :  string; 
begin 

with  CGIEnvDatal  do 
begin 

websitelNIFilename  :=paramstr(l); 
application.  onException  ;=  cgiErrorHandler; 
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application.processMessages; 

createStdout; 

sendPrologue; 

CenterorLab  :=  GetSmalIField('CenterorLab'); 

send(  '<HTMLXHEAD>’ ); 

sendTitle(  TDisplay  Research  Areas' ); 

send(  '</HEAD><BODY  BGCOLOR="ADEAEA">' ); 

with  query  1  do 
begin 
close; 

SQL.clear; 

SQL.  Add('SELECT  CenterorLab,  CenterorLabOverview'); 

SQL.  AddCTROM  RES_CENT'); 

SQL.Add('WHERE  RES_CENT.CenterorLab  =  +  CenterorLab 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<centerXB>'); 

send(FieldByName(’CenterorLab').AsString); 

send('</Bxpx/center>'); 

CGBDB 1  .SendMemo(FieldByName('CenterorLabOverview')); 
send('<P>'); 

next;  {puts  cursor  on  next  record} 
end; 

Query  1. close; 
end; 

with  query2  do 
begin 
close; 

SQL.clear; 

SQL.AddCSELECT  * '); 

SQL. Add^-FROM  FACULTY,  RES_CENT'); 

SQL.  AddC'WHERE  FACULTY.FacultyCode  =  RES_CENT.FacultyCode'); 
SQL.Add('AND  RES_CENT.CenterorLab  =  +  CenterorLab  +""); 
open; 
first; 
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while  not  EOF  do 
begin 

sendCFor  additional  information  contact  Professor '); 
send(FieldByName(TirstName').AsString); 
send(FieldByName(!LastName').AsString); 
send('at '); 

send(FieldByName(TPhoneAreaCode').AsStiing); 
send(FieldByName('PhoneLocalNumber').AsString); 
send('or '); 

send^ieldByName(Email').AsString); 
next;  {puts  cursor  on  next  record} 
end; 

Query2.close; 

end; 

sendHR; 

send('<p>'); 


(send  user  back  to  Browse  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action="'+ 

'http  ://131. 120.39.65/ cgi-win/browse/browscat.exe">'); 
send('<input  type="submit"  value="  Browse  Catalog  Menu">'); 
send('</fonn>'); 
sendC</CENTER>'); 

send(  '</BODY></HTML>' ); 

closeStdout; 
closeApp(  application  ); 

end; 

end; 

end. 
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5.  Browse  Research  Sponsors 
unit  Brsspon; 
interface 
uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

CGIDB  1;  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender;  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  ;=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 
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send(  '<HTMLXHEAD>' ); 
sendTitle(  "Browse  Faculty  Account" ); 

send(  '</HEADXBODY  BGCOLOR="ADEAEA""xCENTER>" ); 

with  queryl  do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT  Activity"); 

SQL.add("From  SPONSOR'); 
open; 

fieldByName  ( "Activity  ).displayLabel  ;=  "Sponsors'; 
end; 

CGIDB 1  .drawTable; 
queryl. close; 

send('<P>'); 

send('<FORM  method=post  action='"+ 

"httpV/lS  1. 120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input  type="  submit"  value="Browse  Catalog  Menu">'); 
send('<form>'); 
send('</CENTER>'); 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 
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6.  Browse  Publications 


unit  Brs_publ; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TFonn) 

CGlEnvDatal:  TCGEEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel;  TDataSource; 

Query  1;  TQuery; 

CGIDB2:  TCGIDB; 

CGIDB3:  TCGIDB; 

DataSource2:  TDataSource; 

DataSourceS :  TDataSource; 

Query2:  TQuery; 

QueryS:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml;  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
begin 

with  CGlEnvDatal  do 
begin 

websiteDsflFilename  :=  paramstr(l); 
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appIication.onException  ;=  cgiEirorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(standard  header  information) 

send(  '<HTML><HEAD>' ); 

sendTitle(  Display  Publications' ); 

send(  '</HEADXBODYBGCOLOR="ADEAEA">' ); 

Send('<center><B><H3>RecentPublications</H3x/Bx/center>'); 

With  queryl  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add('FROM  PUBS,  JOURNAL’); 

SQL.Add('WHERE  PUBS.PubTitle  =  JOURNAL.PubTitle'); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

CGIDB 1 .  SendMemo(FieldByName(' Author')); 

send(’,'); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send("',’); 

send('<i>'); 

send^ieldByName('JoumalName’).AsString); 

send('</i>'); 

If  FieldByname('Volume').  AsString  o  "then 
begin 

send('Vol'); 

send(FieldByName('Volume').AsString); 

end; 

If  FieldByname(Number').AsString  o  "then 

begin 

send(No'); 

send(FieldByName(Number').AsString); 

end; 
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send(FieldByName('PubMonth').AsStrmg); 

send^ieldByName('PubYear').AsString); 

ffFieldBynameCPages^AsString  o  "then 

begin 

send(';'); 

send(FieldByName('Pages').AsString); 

end; 

sendOFieldByNameCNote^AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 

Query  1. close; 
end;  (Query  1) 

With  query2  do 
begin 
close; 

SQL.clear; 

SQL.Add(’SELECT  * '); 

SQL.Add('FROM  PUBS,OTHERPUB’); 

SQL.AddCWHERE  PUBS.PubTitle  =  O'lHERPUB.PubTitle'); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB2.SendMemo(FieldByName(' Author')); 

sendC,'); 

sendC"'); 

send(FieldByName('PubTitle').AsString); 

sendC",'); 

CGIDB2.SendMemo(FieldByNanie('Citation')); 

send(FieldByName(TubMonth').AsString); 

send(FieldByName(TubYear').AsString); 


sendC<BR>'); 

send('<BR>'); 

next;  (puts  cursor  on  next  record} 
end; 

Query2.  close; 
end;  (Query  2} 
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With  queryS  do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT  ♦ '); 

SQL.Add(TROM  PUBS, BOOKS'); 

SQUAddCWHERE  PUBS.PubTitle  =  BOOKS.PubTitle'); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

CGIDB3 .  SendMemo(FieldByName('Author')); 

send(','); 

send(""); 

send(FieldByNaine('PubTitle').AsString); 

send("','); 

send(FieldByName('Volume').AsString); 

send(FieldByNanie('Series').AsString); 

send(FieldByName('Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByNanie('Street').AsString); 

send(FieldByNanie('City').AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

send(FieldByName(TubMonth').AsString); 

send(FieldByNanie('Pub  Y ear*).  AsString); 

send('<BR>'); 

send('<BR>'); 

next;  (puts  cursor  on  next  record) 
end; 

QueryS. close; 
end;  (QueryS) 
send('<p>'); 
sendHR; 
send('<p>'); 

(send  user  back  to  Browse  Menu) 

send('<CENTER>'); 

send('<FORM  method=post  action='"+ 

'http://13 1 . 120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input  type="subniit"  value="Browse  Catalog  Menu">'); 
send('</form>'); 
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send('<yCENTER>'); 

send(  ’</BODYx/HTML>’ ); 
closeStdout; 
closeApp(  application  ); 
end; 


B.  ITM  Faculty  SCRIPTS 


1.  Catalog  Menu 

unit  Catalog  1; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGBEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2;  TDataSource; 

Query2;  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
var 

FacultyCode:  string; 
begin 

with  CGIEnvDatal  do 
begin 

{  required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
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application.processMessages; 


createStdout; 

sendPrologue; 

FacultyCode  :=  getSmallFieldCFacultyCode'); 

{standard  header  information) 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Catalog  Menu' ); 

send(  '</HEAD><BODY  BGCOLOR="ADEAEA">'); 

send  ('<centerXHl>Catalog  Menu</Hlx/center>'); 

(List  research  catalog  items  that  a  faculty  member  can  maintain) 

sendHR; 

send('<P>'); 

send('<H2>Maintain  Research  Page;</H2>'); 
sendC<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http://13 1. 120.39.65/cgi-\vin/faculty/apgform.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacuItyCode"  VALUE='"+FacultyCode+'">'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Add"x/TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http  ://l 3 1 . 1 20.3 9. 65/cgi-win/faculty/mpg_show.  exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<TD  ALIGN="CE]SITER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Modify"x/TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 
send('"http;//13 1. 120.39.65/cgi-win/faculty/dsp_pg.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Browse"x/TDx/FORM>'); 


send('<FORM  METHOD  =  POST  ACTION= '); 
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send("'http://13 1 . 120.39.65/cgi-wm/feculty/pg_chk.exe">'); 

send('<INPUT  TYPE="HIDDEN''  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Delete"x/TDx/FORM>'); 

send('</lRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 


send('<H2>Mamtain  Publications:</H[2>'); 
sendC<CENTER> '); 

send('<TABLEB0RDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http;//13 1 . 120.39.65/cgi-win/faculty/pub_iTb.exe">'); 
sendC<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCodef' 
sendC<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBM[T  VALUE="Add"x/TDx/FORM>’); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty^rs_pub.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+-'">'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Browse"x/TDx/FORM>'); 

send('<FORMMElHOD  =  POST  ACTION='); 
send('"http://13 1. 120.39.65/cgi-win/faculty/dpub_rrb.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+'">'); 
send('<TD  ALIGN="CENTER">'); 

send('<IKPUT  TYPE=SUBMIT  VALUE="Delete"><TDx/FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send('<H2>Maintain  Research  Sponsors  :</H2>'); 
send('<CENTER> '); 
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send('<TABLEB0RDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION^ '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/aspon_fiii.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=’"+FacultyCode+"'>'); 
send('<TD  ALIGN="CENTER">'); 

send(’<INPUT  TYPE=SUBMIT  VALUE="Add"x/TDx/FORM>'); 

send(’<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-\vin/faculty/brs_spo.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VAHJE="'+FacultyCode+"'>'); 
send(’<TD  ALIGN="CElSfTER">'); 

send('<INPUT  TYPE=SUBMrr  VALUE="Browse"x/IDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/dspo_lst.exe">'); 

send('<I]SIPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+’">'); 
send(’<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE='Delete"x/TDx/FORM>’); 

sendC</TRX/TABLEx/CENTER>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send('<H2>Maintain  Faculty  Infonnation/Account:</H2>'); 
send('<CENTER> '); 

send(’<TABLE  BORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORMMETHOD=POST  ACTION='); 
send("'http://13 1 . 120.39. 65/cgi-win/facuIty/infi_fonn.exe">'); 

send(’<INPUT  TYPE="HIDDEN"  NAME=''FacultyCode"  VALUE='"+FacultyCodet-"’>'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE="SUBMIT"  VALUE="Modify"x/TDx/FORM>'); 

send('<FORM  METHOD=POST  ACTION='); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/dsp_fac.exe">'); 

send('<rNPUT  TYPE='’HIDDEN"  NAME='TacultyCode"  VALlJE="'+FacultyCode+"'>'); 
send(*<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE="SUBMIT"  VALUE="Browse'X/TDx/FORM>'); 
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sendC<FORM  METHOD=POST  ACTION='); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/nrfa_form.exe">'); 

send(’<IlSlPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacuItyCode+"’>'); 
send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE="SUBMIT"  VALUE="ChangePassword"x/TDx/FORM>'); 
send('</TRx/TABLEx/CENTER>'); 


send('<p>'); 

sendHR; 

send('<p>'); 


send('<H2>Browse  Research  Areas:</H2>'); 
send('<CENTER> '); 

send(’<TABLE  B0RDER=5  CELLPADDING=5>'); 

send(’<FORM  METHOD  =  POST  ACTION= '); 

send("'http;//13 1. 120.39.65/cgi-\vin/faculty/brs_area.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode''  VALUE="'+FacultyCode+"'>'); 

send('<TR>'); 

sendC<TD  ALIGN=’'CENTER"xSELECT  NAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 


with  Queryl  do  {List  Research  Area  Options) 
begin 
close; 

SQL.  AddCSELECT  DISTINCT  ResearchAreaTitle'); 

SQL.Add(TROM  RES_AREA '); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName(ResearchAreaTitle').AsString+"'>'); 
send(FieldByNanie('ResearchAreaTitle').AsStrmg); 
next;  (puts  cursor  on  next  record) 
end; 
close; 

end;  (End  Query  1) 


send('<SELECTx/TD></TR>'); 
send('<TRxTD  ALIGN="CENTER''>'); 
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send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Selection"  ALIGN="MIDDLE">'); 
send('</TDx/FORMxyrABLE>’); 

send('</center>'); 

sendHR; 

send('<^B>Browse  Centers  and  Labs</H3>'); 
send('<center>'); 

sendC<TABLEBORDER=5  CELLPADDING=5>'); 

send(’<FORM  METHOD  =  POST  ACTION^ '); 

send("'http;//13 1 . 120.39.65/cgi-win/faculty/show_lab.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 

send('<TR>'); 

send(’<TD  ALIGN="CENTER"xSELECTNAME="CenterorLab"  TYPE="text"  SIZE=1>'); 

with  Query2  do  {List  Research  Centers  And  Labs  Options} 
begin 
close; 

SQL.AddCSELECT  CenterorLab'); 

SQL.Add(TROMRES_CENT '); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ’"+FieldByName('CenterorLab').  AsString+"'>'); 
send(FieldByName('CenterorLab').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 

end;  {End  Query  2} 
send('</SELECTx/TDx/TR>'); 
send('<TR><TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE='' Submit  Selection"  ALIGN="MIDDLE">'); 

send('</TDx/FORM></TABLE>'); 

send('</center>'); 

send(  ’</BODY></HTML>' ); 
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closeStdout; 

closeAPP(application); 

end; 

end; 

end. 
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2.  Add  riM  Faculty  Research  Page 

{Add  Page  Form} 
unit  Apgforail; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 
procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  ♦.DFM) 

procedure  TForml. FormCreate(Sender;  TObject); 
var 

FacultyCode ;  String; 
begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 
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FacultyCode  :=  getSmallFieldCFacultyCode'); 

send(  '<HTMLXHEAD>’ ); 

sendTitle(  'Add  a  Faculty  Research  Page  Form' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

sendCPlease  fill  in  the  below  fields.  When  you  are  finished  click  the '); 
send("' Submit"  button '); 

(Registration  Form} 
send('<center>'); 

send('<FORM  method=post  action-); 

send("'http;//13 1. 120.39.65/cgi-win/faculty/addpage.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+'">'); 
send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<TR><TD>Last  Name:'); 

send('</TDxtdxinput  type="text"  name="LastName" '); 
send('size=30  maxlength=30x/td>'); 

send('<TRxTD>First  Name:'); 

send('</TDxtdxinput  type="text"  name="FirstName" '); 
send('size=20  maxlength=20x/td>'); 

send('<TRxTD>Middle  Initial:'); 

send('</TDxtdxinput  type="text"  name="MiddleInitial" '); 
send('size=l  maxlength=lx/td>'); 

send('<TRxTD>Title:'); 

send('</TDxtdxinput  type="text"  name="  Title" '); 
send('si2e=35  maxlength=35x/td>'); 

send('<TRxTD>Degree:'); 

send('</TDxtdxinput  type="text"  name="Degree" '); 
send('size=3  maxlength=3x/td>'); 

send('<TRXTD>Graduate  School:'); 
send('</TDxtdxinput  type="text"  name="School" '); 
send('si2e=50  maxlength=50x/td>'); 

send('<TRXTD>Year  Graduated:'); 
send('</TDxtdxinput  type="text"  name="GradYear" '); 
send('size=4  maxlength=4x/td>'); 
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send('<TRxTD>Office  Area  Code:'); 

send('</TDxtdxinput  type="text"  name="PhoneAreaCode" '); 
send('size=3  maxlength=3xytd>'); 

send('<TRxTD>Office  Phone:'); 

send('</TDxtdxinput  type="text"  nanie="PhoneLocalNumber" '); 
send('si2e=8  maxlength=8x/td>'); 

send('<TRxTD>Email:'); 

send('</TDxtdxinput  type="text"  name="Email" '); 
send('si2e=35  maxlength=35></td>'); 

send('<TRxTD>HomePage:'); 

send('</TD><tdxinput  type="text"  name="HomePage" '); 
send('size=40  maxlength=40x/td>'); 

send('<TRxTD>Research  Areas:</TD>'); 
send('<TDxtextarea  rows=3  cols=50  naine="ResearchAreas">'); 
send(Please  list  your  research  areas  seperated '); 
send('by  commas  </textarea>'); 

send('<TRxTD>Research  Description:</TD>'); 
send('<TD><textarea  rows=10  cols=50  name="ResearchDescription">'); 
send(Please  provide  a  description  of  your  research  area.</textarea>'); 

send('<TRxTD>Relevance  to  DOD/DON:</TD>'); 
send('<TDxtextarea  rows=5  cols=50  name="RelevancetoDOD/DON">'); 
send('Please  state  how  your  research  area  is  relevant  to  DOD/DON.</textarea>'); 


send('</TABLE>'); 

send('<P>'); 

send('<input  type="submit"  value=  "Submit  Information">'); 
send('<input  type="reset"  value="Clear  Form"x/center>'); 
send('</form>'); 
send('<P>'); 


{If  user  cancels,  send  user  to  Catalog  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action='"+ 

'http://13 1. 120.39. 65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacuItyCode^-"'>'); 
send('<input  type="submit"  value=" Cancel,  Return  to  Catalog  Menu">'); 
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send('</form>'); 

send('</CENTER>'); 


send('</BODYx/HTML>’ ); 
closeStdout; 
closeApp(  application  ); 
end; 
end; 

end. 

{Add  Research  Page  To  Table} 
unit  Addpagel; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

DataSource2;  TDataSource; 

Table2:  TTable; 

procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 


73 


FacultyCode :  string; 

LastName ;  string; 

FirstName :  string; 

MOiddlelnitial :  string; 

Title :  string; 

Degree :  string; 

School :  string; 

Gradyear :  string; 

PhoneAreaCode ;  string; 

PhoneLocalNumber :  string; 

Email :  string; 

HomePage :  string; 

theAreas :  TStrin^ist; 
theDescription :  TStringList; 
theRelevance :  TStringList; 

begin 

with  CGBEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
apphcation.  processMessages; 

createStdout; 

sendPrologue; 

{receive  input  fields  from  HTML  form} 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

LastName  :=  getSmallField(  'LastName' ); 

FirstName  :=  getSmallField(  'FirstName' ); 

Middlelnitial  :=  getSmaIlField(  'Middlelnitial' ); 

Title  :=  getSmalIField(  'Title' ); 

Degree  ;=  getSmallField(  Degree' ); 

School  :=  getSmalIField(  'School' ); 

GradYear  :=  getSmallField(  'GradYear' ); 

PhoneAreaCode  :=  getSmallField(  PhoneAreaCode' ); 
PhoneLocalNumber  :=  getSmalIField(  PhoneLocalNumber' ); 
Email  :=  getSmalIField(  Email' ); 

HomePage  ;=  getSmailField(  'HomePage' ); 


theAreas  :=  TStringList.create; 
theAreas.  clear; 

getTextArea(  'ResearchAreas',  theAreas  ); 

theDescription  :=  TStrin^ist.  create; 
theDescription.  clear; 

getTextArea(  'ResearchDescription’,  theDescription  ); 

theRelevance  :=  TStringList.create; 
theRelevance.  clear; 

getTextArea(  RelevancetoDOD/DON’,  theRelevance  ); 

send(  ’<HTMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</HEADXBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do  {puts  cursor  on  correct  record  in  Research  Page  table} 
begin 
open; 

SetKey; 

FieldByNameCFacultyCode'). AsString  :=  FacultyCode; 

GotoKey; 

end; 

if  (Tablel. GoToKey  =  True)  or  (FacultyCode  =  CGINotFound)  then 
(User  already  has  a  research  page) 

begin 

send('<centerxhl>You  Already  Hava  a  Research  Page</hl>'); 
sendHR; 

send('<p>'); 

send('<FORM  niethod=post  action='"+ 
'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input  type="subniit"  value="Cancel,  Return  to  Catalog  Menu  ">'); 
send('</form>'); 
send('</CENTER>'); 
end 

else 

(add  research  page} 
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begin 

Tablel.AppendRecord([FacultyCode,LastName,FirstName, 

MiddleLiitial, Title, Degree,  School,  GradY ear, 
PhoneAreaCode,PhoneLocaINumber,Email,HomePage]); 

Tablel. close; 

Table2.open; 

Table2.AppendRecord([FacultyCode,theAreas,theDescription, 

theRelevance]); 

Table2.close; 

send('<centerxhl>Your  Research  Page  was  successfully  entered!<^l>'); 
sendHR; 

send('<P>'); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCodef' 
send('<input  type="submit"  value="Catalog  Menu 
send('*^form>'); 
send('</CENTER>'); 
end; 

send(  ’</BODYX/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 
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3.  Modify  TIM  Faculty  Research  Page 

{Displays  Text  in  Research  Page  to  be  Modified} 

unit  Mpgshow; 

interface 

uses 

SysUtUs,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

FacultyCode ;  string; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  Web  Site} 
webSitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendProIogue; 

FacultyCode  :=  getSmallFieldCFacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Modify  Research  Page' ); 

send(  '</EJEADxBODYBGCOLOR="ADEAEA">' ); 


{Modification  form) 

with  Tablel  do  { Search  Research  Page  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([FacultyCode]); 

end; 

send('<center>'); 

sendC<FORM  METHOD=POST  ACTION=’); 
sendC"http;//13 1 . 120.39.65/cgi-win/faculty/mod_pge.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>’); 
sendC<TABLEBORDER=5  CELLPADDING=5>'); 

send('<TRxTD>Research  Areas:</TD>'); 

send('<TDxtextarea  rows=3  cols=50  name="ResearchAreas">'); 

CGIDB 1 .  SendMemo(Tablel  .FieldByName(ResearchAreas')); 
send('</textarea>'); 

send('<TRxTD>ResearchDescription:</TD>'); 

send('<TDxtextarea  rows=10  cols=50  name="ResearchDescription">'); 

CGIDB  1 .  SendMemo(Table  1  .FieldByName('ResearchDescription')); 
send('<ytextarea>'); 

send('<TRxTD>DOD/DONRelevance:</TD>'); 

send('<TDxtextarea  rows=5  cols=50  name="RelevancetoDOD/DON">'); 

CGIDB  1 .  SendMemo(Tablel  .FieldByName(RelevancetoDOD/DON’)); 
send('</textarea>'); 

send('</TABLE>  ’); 

send('<P>'); 

send('<input  type="subniit"  value=  "Submit  Change"> '); 
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send('<input  type="reset"  value="Reset  Fields 

send('</form> '); 

sendHR; 

send('<p>'); 

send('<FORM  METHOD=POST  ACTION='); 
send("'http:// 1 3 1 . 120. 3 9. 65/cgi-win/faculty/catalog.  exe">'); 

send('<INPUT  TYPE=''HIDDEN"  NAME="FacultyCode’*  VALUE="'+FacultyCode+’">'); 
send('<input  type=''subniit''  value=" Cancel, Return  to  Catalog  Menu''>'); 
send('</form>'); 
send('</CENTER>'); 

Table  1.  close; 

send(  '</BODY><yHTML>’ ); 
closeStdout; 
closeApp(application); 
end 
end; 

end. 

{Accepts  Text  Changes  to  Research  Page} 
unit  Mod_pgel; 

interface 

uses 

SysUtils,  WinTypes,  WiriProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel;  TDataSource; 

Tablel:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 
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var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

FacultyCode  :  string; 

AreaBrief  ;  TStringList; 

DescriptionBrief ;  TStrin^ist; 

RelevanceBrief  :  TStringList; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

FacultyCode  :=  getSmalIField(  FacultyCode' ); 

AreaBrief  :=  TStringList.create; 

AreaBrief  clear; 

getT  extArea(  ResearchAreas',  AreaBrief ); 

DescriptionBrief  ;=  TStringList.create; 

DescriptionBrief  clear; 

getTextArea(  ResearchDescription',  DescriptionBrief); 

RelevanceBrief.-  TStringList.create; 

RelevanceBrief  clear; 

getTextArea(  RelevancetoDOD/DON’,  RelevanceBrief); 

send(  '<HTMLXHEAD>’ ); 
sendTitle(  Ivlodify  Research  Page ' ); 
send(  ’</HEADxBODY  BGCOLOR="ADEAEA">' ); 
send('<center><hl>Modify  Research  Page</hl>'); 
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{Modify  Research  Page} 
with  Tablel  do 
begin 
open; 

FindKey([FacultyCode]); 

delete; 

AppendRecord([FacultyCode,AreaBrief,DescriptioriBrief,RelevanceBrie^); 

close; 

end; 

send('<h2>The  research  page  has  been  modified.  </h2>'); 


send('<p>'); 

sendHR; 

send('<p>'); 

sendC<FORMMETHOD=POST  ACTION='); 
send("'http;//13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUT  TYPE="HIDDEN"  NAME=''FacultyCode"  VALUE="'+FacultyCode+"'>'); 

send('<input  type="subniit"  value="Catalog  Menu">'); 

send0</fonnx/center>'); 

send(  ’</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 
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4.  Add  Publications 


unit  Pub_rrbl; 

interface 

uses 

SysUtils,  WinXypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGEEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml;  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

FacultyCode :  String; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite) 
webSitelNIFilename  ;=  paramstr(l); 
application.onException  :=  cgiEixorHandler; 
application.processMessages; 

createStdout; 
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sendPrologue; 

FacultyCode  ;=getSmalIField(TacultyCode'); 

{standard  header  information) 
send(  '<HTML><HEAD>' ); 

sendTitle(  'Choose  To  Add  New  or  Existing  PUB  Menu' ); 

send(  '</EJEADxBODYBGCOLOR="ADEAEA">' ); 

send  ('<H4>Select  a  publication  to  add  to  your  research  page,  feculty*); 

send('research  area,  or  both.  If  another  ITM  professor  co-authored  a'); 

send('publication  with  you  he  may  have  already  entered  it,  so  you  might'); 

send('want  to  check  the  list  of  existing  pubs  first.  If  you  are  the  only'); 

send('author  and  know  you  did  not  enter  the  pubhcation  select  "Add  New  Pub"</H4>'); 

send('<center>'); 

send('<TABLE  BORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http://131.120.39.65/cgi-win/faculty/sel_iTb.exe">'); 

send('<INPUT  TYPE="HIDDEN''  NAME="FacultyCode"  VALUE='"+FacultyCodof' ">'); 
send('<TR>'); 

send('<TDxSELECTNAME="PubTitle''  TYPE="text"  SIZE=1>'); 

with  Queryl  do 
begin 
close; 

SQL.  AddCSELECT  PubTitle'); 

SQL.  AddCFROM  PUBS'); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  '"+FieldByName('PubTitle').AsString+'">'); 
send(FieldByName('PubTitle').AsString); 
next;  (puts  cursor  on  next  record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 


83 


send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send(Value=''Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

sendC<TRxtd  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Add  Existing 
Pub"x/td>'); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"ht^://13 1 . 120.39.65/cgi-win/faculty/sel_pub.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<TRxtd  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Add  New 
Pub"x/td>'); 
sendC</FORM>'); 

sendC<FORM  METHOD  =  POST  ACTION^ '); 
send('"http;//13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<TRxtd  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Cancel,  Return  to 
Catalog  Menu"xytd>'); 
send('</FORM>'); 

send('</Table>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{H  Adding  New  Pub  to  Page  and/or  Areas} 

unit  Sel_publ; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgi; 
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type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGDEnvData; 
procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

FacultyCode  :  string; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

FacultyCode  :=  getSmallField(TacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Determine  Publication  Type' ); 

send(  '</HEAD><BODY  BGCOLOR="ADEAEA">' ); 

send  ('<center><Hl>Choose  The  Publication  Type</Hlx/center>'); 
send('<P>'); 

send('<h2>Please  click  below  the  type  of  publication  you  want  to '); 
send('enter'); 
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send('<P>'); 

send('<Center>'); 

send('<FORM  method=post  action="'+ 

'http  ://131. 120.39.65/ cgi-win/faculty/pubtype.  exe">'); 

send('<INPUT  TYPE="HIDDEN’'  NAME="FacultyCode"  VALUE='"+FacultyCode+"'>'); 


send('<TABLE  BORDER=5  CELLPADDING=5>'); 

send('<TRxtdxinput  type="radio"  checked  name="PubType" '); 
send('value="Joumal">Joumal'); 

send('<mput  type="radio"  name="PubType"  value="Book">Book'); 
send('<input  type="radio"  name="PubType"  value="Other">Other</td>'); 


send('</TABLE> '); 

send('<input  type="submit"  value="Send  Reply">'); 
send('</form>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<FORM  method=post  action="'+ 

'http://13 1 . 120.39.65^gi-win/faculty/catalog.exe">'); 
send('<I]SIPlJT  TYPE="HIDDEN’'  NAME="FacultyCode"  VALUE="'+FacultyCode+’">'); 
send('<input  type="subnut"  value="Cancel,  Return  to  Catalog  Menu">'); 
send('</form>'); 
send('</CENTER>’); 

send('</BODYx/EnML>’ ); 
closeStdout; 
closeApp(  application ); 
end; 
end; 

end. 

(If  Pub  is  a  Journal} 
unit  Addjml; 

interface 

uses 
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SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel :  TDataSource; 

Tablel:  liable; 

DataSource2:  TDataSource; 

Table2:  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 


var 

Forml:  TForml; 


implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

FacultyCode 
PubTitle 
theAuthor 
JoumalName 
Volume 
Number 
PubMonth 
PubYear 
Pages 
Note 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNCFilename  ;=  paramstr(l); 


;string; 

:  string; 
:TStringList; 

:strmg; 

istring; 

:  string; 
:string; 
:string; 

:  string; 

:  string; 
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application.  onException  ;=  cgiErrorHandler; 
application-processMessages; 


createStdout; 

sendPrologue; 

{receive  input  fields  fi'om  HTML  form} 
FacultyCode  :=  getSmallField(TacultyCode'); 
PubTitle  :=  getSmallField(  T^bTitle' ); 

theAuthor  :=  TStringTist.create; 
theAuthor.  clear; 

getTextArea(  'Author*,  theAuthor  ); 


JoumalName 

Volume 

Number 

PubMonth 

Pub  Year 

Pages 

Note 


:=  getSmallField(  'JoumalName' ); 
;=  getSmallField(  'Volume' ); 

:=  getSmallField(  Number' ); 

:=  getSmallField(  'PubMonth' ); 

:=  getSmallField(  'PubYear' ); 

:=  getSmalIField(  Tages' ); 

:=  getSmallField(  Note' ); 


send(  '<HrMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</EIEADXBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do  (puts  cursor  on  correct  record  in  Pub  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString  :=  PubTitle; 

GotoKey; 

end; 

if  (Tablel. GoToKey  =  Trae)  then 
(Pub  already  exist} 

begin 

send('<CenterXhl>Publication  Already  Exist  In  Database</hl>'); 

sendHR; 

send('<P>'); 

send('<FORM  method=post  action= '); 
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send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">  *); 
send('<INPUT  TYPE="HIDDEN"  NAME-"FacultyCode" 

VALUE="'+FacultyCode+"'>’); 

send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

{add  research  page} 
begin 

Tablel.open; 

Tablel.AppendRecord(pPubTitle,theAuthor,PubMonth,PubYear,Note]); 

Tablel. close; 

Table2.open; 

Table2.AppendRecord([PubTitle,JoumaIName, Volume, Number, Pages]); 

Table2.close; 

send  ('<H2>Choose  whether  you  want  to  add  your  publication  to  a'); 
send('  faculty  research  page,  faculty  research  area,  or  both</EI2>'); 

send('<center>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
sendC"http://13 1 . 120.3 9.65/cgi-win/faculty/sel_rrb.exe">'); 
sendC<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE=’"+PubTitle+"'>'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 


send('<TABLE  BORDER=5  CELLPADDING=5>’); 

send(’<lRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send('value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Selection">'); 
send('</FORM>'); 
send('</ center>'); 
end; 


send(  '</BODYx/HTML>' ); 
closeStdout; 


89 


closeApp(application); 

end; 

end; 

end. 

{KPub  is  a  Book} 
unit  Add_bkl; 

interface 


uses 

SysUtils,  WinXypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel;  liable; 

DataSource2:  TDataSource; 

Table2;  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 


var 

Forml;  TForml; 


implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender;  TObject); 
var 

theAuthor  ;TStringTist; 

PubTitle  ;  string; 

Publisher  ;  string; 

PubMonth  ;  string; 

PubYear  :  string; 
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Volume  istring; 

Series  ;  string; 

Edition  :  string; 

Note  ;  string; 

FacultyCode  istring; 


begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi'om  HTML  form} 
theAuthor  ;=  TStringList.create; 
theAuthor.clear; 

getTextArea(  'Author",  theAuthor  ); 


PubTitle 

Publisher 

PubMonth 

Pub  Year 

Volume 

Series 

Edition 

Note 

FacultyCode 


:=  getSmallField(  PubTitle' ); 

;=  getSmallField(  "Publisher' ); 

:=  getSmallField(  "PubMonth" ); 
:=  getSmallField(  "PubYear" ); 

:=  getSmallField(  "Volume" ); 

:=  getSmallField(  "Series' ); 

:=  getSmallField(  Edition" ); 

:=  getSmallField(  Note" ); 

:=  getSmallField(PacultyCode'); 


send(  '<HTMLXHEAD>' ); 

sendTitle(  "Add  Research  Page  Menu" ); 

send(  '</HEADXBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do  (puts  cursor  on  correct  record  in  Pub  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString  :=  PubTitle; 
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GotoKey; 

end; 

if  (Tablel.GoToKey  =  True)  then 

{Pub  already  exist} 

begin 

send('<Center><hl>Publication  Already  Exist  In  Database</hl>'); 

sendHR; 

send('<P>'); 

send('<FORM  method=post  action= '); 

send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 
send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

(add  research  page} 

begin 

Tablel.open; 

Tablel.AppendRecord([PubTitle,theAuthor,PubMonth,PubYear,Note]); 

Tablel. close; 

Table2.open; 

Table2.AppendRecord([PubTitle,Publisher,Volume, Series, Edition]); 

Table2.close; 

send  ('<H2>Choose  whether  you  want  to  add  your  publication  to  a'); 
send('  faculty  research  page,  faculty  research  area,  or  both</H2>'); 

send('<center>'); 

send(’<FORM  METHOD  =  POST  ACTION=  '); 
send("'http;//13 1 . 120.39.65/cgi-win/faculty/sel_rrb.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE="’+PubTitle+"'>'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"’>'); 

sendC<TABLEBORDER=5  CELLPADDING=5>'); 

send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send('value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
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send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 


sendC</TABLE>'); 

sendC<INPUT  TYPE=SUBMIT  VALUE="  Submit  Selection">'); 
send('</FORM>'); 
send('</center>'); 
end; 

send(  '</BODYx/EnML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If  Pub  is  Other  Than  Journal  or  Book} 
unit  Add_othl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TFprm) 

CGBEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

DataSource2;  IDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 


93 


{$R  *.DFM} 


procedure  TFomil.FormCreate(Sender:  TObject); 
var 

theAuthor  :TStringList; 

PubTitle  ;  string; 

PubMonth  :string; 

PubYear  rstring; 

theCitation  iTStringList; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  ;=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi'om  HTML  form) 
theAuthor  :=  TStringListcreate; 
theAuthor.  clear; 

getTextArea(  'Author*,  theAuthor  ); 

PubTitle  :=  getSmallField(  'PubTitle' ); 

PubMonth  :=  getSmallFieId(  'PubMonth' ); 

PubYear  :=  getSmallField(  PubYear' ); 

FacultyCode  :=  getSmallField(PacultyCode'); 

theCitation  :=  TStiingList. create; 
theCitation.  clear; 

getTextArea(  'Citation',  theCitation  ); 

send(  '<HIMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</HEAD><BODYBGCOLOR="ADEAEA">' ); 

with  Table  1  do  (puts  cursor  on  correct  record  in  Pub  table} 
begin 
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open; 

SetKey; 

FieldByName('PubTitle').AsString  :=  PubXitle; 

GotoKey; 

end; 

if  (Table  l.GoToKey  =  True)  then 
{Pub  already  exist} 

begin 

send('<CenterXhl>Publication  Already  Exist  In  Database</hl>'); 

sendHR; 

send('<P>'); 

send('<FORM  method=post  action= '); 
send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe''> '); 
sendC<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+’">'); 

send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

(add  research  page} 
begin 

Tablel.open; 

T  able  1 .  AppendRecord([PubTitle,theAuthor,PubMonth,PubY  ear]); 

Tablel. close; 

Table2.open; 

Table2.AppendRecord([PubTitle,theCitation]); 

Table2.  close; 

send  ('<EC2>Choose  whether  you  want  to  add  your  publication  to  a'); 
sendC  faculty  research  page,  faculty  research  area,  or  both</H2>'); 

send('<center>'); 

send(’<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-win/faculty/sel_rrb.exe">'); 
send('<INPUT  TYPE="H[DDEN"  NAME="PubTitle"  VALUE="'+PubTitle+"'>'); 
send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCodet-"’>'); 
send('<TABLE  BORDER=5  CELLPADDING=5>'); 
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send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send('value="Pub2Pg''>Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<mput  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=STJBMIT  VALUE="Subimt  Selection">'); 
send('</FORM>'); 
send('<^center>'); 
end; 

send(  '</BODYx/EirML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{IF  Pub  Exist  and  Adding  to  Page  and/or  Area} 
unit  Seljrrbl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal ;  TCGIEnvData; 

DataSourcel  :  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Tablel:  liable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
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Foiml:  TForml; 


implementation 
{$R  *.DFM} 

procedure  TForml  .FonnCreate(Sender:  TObject); 
var 

PubTitle  :  string; 

PubCombo  :  string; 

FacultyCode  istring; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
appIication.onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

{receive  input  fields  fi'om  HTML  form} 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

PubTitle  :=  getSmallField(  "PubTitle' ); 

PubCombo  :=  getSmaUFieldCPubCombo'); 

send(  '<HTMLXHEAD>' ); 
sendTitle(  'Add  Pub  Menu' ); 
send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

if  PubCombo  =Tub2Pg'  then 
begin 

with  Tablel  do  {puts  cursor  on  correct  record  in  Pub  table} 
begin 
open; 

SetKey; 

FieldByNameCPubTitle').  AsString  :=  PubTitle; 
FieldByName('FacultyCode').AsString  :=  FacultyCode; 
GotoKey; 
end; 
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if  Table  l.GoToKey  =  True  then 
{Pub  already  exist} 

begin 

send('<Centerxh2>Publication  Already  On  This  Research  Page</h2>'); 

sendHR; 

send('<P>'); 

send('<FORM  method=post  action= '); 
send^"http://13 1 . 120.39. 65/cgi-win/faculty/catalog.exe"> '); 
sendC<INPtJT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALLIE="’+FacultyCode+"’>'); 

send('<input  type="subniit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 
send('</fonn> '); 
sendC</CENTER>’); 
end 
else 

(add  research  page} 
begin 

{input  record  into  tables} 

Tablel.open; 

Tablel.AppendRecord([PubTitle,FacultyCode]); 

Tablel. close; 

send('<h2>Your  Publication  was  successfully  entered  on  research  page!</h2>'); 
sendHR; 

send('<P>'); 

send('<Center>'); 

send('<FORM  method=post  action= '); 
send("'http  ;//l 3 1 . 1 20.3 9. 65/ cgi-win/faculty/catalog.  exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+"'>'); 

send('<input  type="  submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 
end; 

if  PubCombo  ='Pub2Area'  then 
begin 

send('<centerxH2>Add  Publication  to  Research  Area</h2>'); 
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send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/pub2area.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle''  VALUE=’"+PubTitle+"'>'); 
send('<INPUT  TYPE="HIDDEN"  NAME='TacultyCode"  VALUE="'+FacultyCode+"'>'); 
send('<TABLE  BORDER=5  CELLPADDING=5>'); 


send('<TR>'); 

sendC<TD  ALIGN="CENTER"xSELECTNAME=''ResearchAreaTitIe"  TYPE="text" 
SIZE=1>'); 


with  Queryl  do 

begin 

close; 

SQL.  Add('SELECT  ResearchAreaTitle '); 

SQL.  AddCFROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  '"+FieldByName('ResearchAreaTitle').  AsStringH-"'>'); 
send(FieldByNanie('ResearchAreaTitle').AsString); 
next;  (puts  cursor  on  next  record) 
end; 
close; 
end; 

send('</SELECTx/TDx/rR>'); 

sendC</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALLIE="Subinit  Infonnation">’); 

send(’</FORM>'); 

sendHR; 

send('<FORM  method=post  action="'+ 

'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>’); 
send('<input  type="subniit"  value="Cancel,  Return  to  Catalog  Menu">'); 
send('</fonn>'); 
send('</CENTER>'); 
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end; 


if  PubCombo  ='Pub2Both'  then 
begin 

send('<centerXH2>Add  Publication  to  Research  Page  and  Research  Area</h2>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/pub2both.exe">'); 
sendC<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+"'>’); 
send('<I]SIPUT  TYPE="HIDDEN''  NAME="FacultyCode"  VALtIE="'+FacultyCode+"'>'); 


send('<TABLE  BORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

sendC<TD  ALIGN="CENTER''xSELECTNAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 


with  Queryl  do 

begin 

close; 

SQL.  Add('SELECT  ResearchAreaTitle '); 

SQL.Add(TROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByNanie('ResearchAreaTitle').AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next;  (puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECT></TD></TR>'); 

send('</TABLE>'); 

sendC<INPUT  TYPE=SUBMIT  VALUE="  Submit  Information’'>'); 
sendC</FORM>'); 

sendHR; 
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{If  user  cancels,  Catalog  Menu} 
send('<FORM  method=post  action-); 
send("'http://13 1 . 120.39.65/cgi-\vin/faculty/catalog.exe">'); 

sendC<INPUT  TYPE=''HIDDEN’'  NAME="FacultyCode"  VALUE=’"+FacultyCodef"'>'); 

send('<input  type=''subniit"  value="Cancel,  Return  to  Catalog  Menu 

send('</form>'); 

send('</CENTER>'); 

end; 

send(  '</BODY></HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

{Adding  Pub  to  a  Research  Area(s)  Only} 

unit  Pub_area; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  liable; 

DataSource2:  TDataSource; 

Table2;  liable; 

DataSoiu'ce3;  TDataSource; 

Queryl:  TQuery; 

procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations } 
end; 
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var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender;  TObject); 
var 

ResearchAreaTitle  :  string; 

PubTitle  :  string; 

SubAreasExist  :  string; 

FacultyCode  rstring; 

begin 

with  CGDEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  ;=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi’om  HTML  form} 

ResearchAreaTitle  :=  getSmallField(  ResearchAreaTitle' ); 
PubTitle  :=  getSmallField(  'PubTitle' ); 

FacultyCode  :=  getSmallField(T'acultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADXBODY  BGCOLOR="ADEAEA">' ); 


with  Tablel  do  { Search  Research  Area  Table  for  record  to  be  modified) 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist  :=  Tablel. FieldByName('SubAreas').AsString; 
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If  SubAreasExist  =  'Yes'  then 
begin 

send('<h3>The  research  area  you  selected  to  add  the  publication  to  has  research'); 
send('subareas.  Select  one  of  subareas  to  add  the  publication.*^ili3>'); 
send('<P>'); 
send('<CENlER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http://13 1 . 120.39.65/cgi-win/faculty/pub2sub.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitlcf' ">'); 
send('<TR>'); 

send('<TDxSELECTNAME="ResearchSubAreaTitle"  TYPE="text"  SIZE=1>'); 

with  Queryl  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SQL.Add('FROM  RES_SUBA'); 

SQL.Add('WHERE  RES_SUBA.ResearchAreaTitle  =  '"  +  ResearchAreaTitle  +  ""); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTIONVALUE='"+FieldByName(ResearchSubAreaTitle').AsString+'">'); 
send(FieldByName(ResearchSubAreaTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TD></TR>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Information">'); 
send('</FORM>'); 

send('<P>'); 

sendHR; 

send('<center>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
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send("'http://13 1 . 120.39.65/cgi-\vin/faculty/catalog.exe">'); 

send('<INPUT  TYPE=''HIDDEN"  NAME="FacultyCode"  VALUE=’"+FacultyCode+"'>'); 
send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Cancel,  Return  to 
Catalog  Menu''></TDx/FORM>'); 

send(’</TRx/TABLEx/CENTER>'); 
end  {end  subareas  =  yes} 
else  {else  no  subarea) 
begin 

with  Table2  do  {puts  cursor  on  correct  record  in  PUB  AREA  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString  :=  PubXitle; 

FieldByNameCResearchAreaTitle').  AsString  :=  ResearchAreaTitle; 

GotoKey; 

end; 

if  Table2.GoToKey  =  True  then 

{User  already  has  pub  in  this  research  area} 

begin 

send('<h3>You  already  have  that  publication  in  this  Research  Area.</h3>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

sendC<FORM  method=post  action= '); 

send0"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

sendC<INPUT  TYPE="HIDDEN"  NAME="FacultyCode’'  VALUE="'+FacultyCode+’">'); 
sendC<input  type="  submit"  value=  "Catalog  Menu"> '); 
sendO</form> '); 
sendC</CENTER>'); 
end 
else 

begin  {add  pub  to  research  area} 

{input  record  into  Research  Area  table} 

Table2.AppendRecord([PubTitle, ResearchAreaTitle]); 

Table2.close; 

send('<centerxh2>Your  Publication  was  successfully'); 

send('added  to  the  research  area!</h2>'); 

sendHR; 

send('<P>'); 
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send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-wm/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+’">'); 
send('<input  type="subniit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
sendC</CENTER>'); 
end; 

end;  {end  else  of  no  subareas  exist} 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

(If  a  Pub  is  Going  to  a  Subarea  of  an  Area} 

unit  Pub2subl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  liable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
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implementation 
{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 
var 

ResearchSubAreaTitle :  string; 

PubXitle  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite) 
webSiteDSHFilename  :=paramstr(l); 
application.onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi-om  HTML  form} 

ResearchSubAreaTitle  :=  getSmalIField(  ResearchSubAreaTitle' ); 

PubTitle  :=  getSmalIField(  'PubTitle' ); 

FacultyCode  :=  getSmallField(Tacultycode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do  (puts  cursor  on  correct  record  in  Research  Page  table) 
begin 
open; 

SetKey; 

FieldByName(ResearchSubAreaTitle').AsString  :=  ResearchSubAreaTitle; 
FieldByName('PubTitle'). AsString  :=  PubTitle; 

GotoKey; 

end; 

if  (Tablel. GoToKey  =  True)  then 

(User  already  has  pub  linked  to  research  page} 

begin 
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send('<centerxh2>You  already  have  that  publication'); 

send('in  this  research  subarea</h2>'); 

sendHR; 


send(’<P>'); 


send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME=’'FacultyCode"  VALUE="'+FacultyCode+'">'); 
send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 
send('</fonn> '); 
send('</CENTER>'); 
end 
else 

{add  research  page} 
begin 

{input  record  into  Research  Area  table} 
Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 

Tablel. close; 

send('<centerXh2>Your  Publication  was  successfully'); 
send('added  to  the  selected  research  subarea!  <yh2>'); 
sendHR; 

send('<P>'); 
send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode^-'">'); 
send('<input  type=" submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 
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{Adding  Pub  to  Both  Research  Page  and  Area(s)} 
unit  Pub2bot; 


interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGEEnvData; 

DataSourcel:  TDataSource; 

Tablel:  liable; 

DataSource2:  TDataSource; 

Table2:  liable; 

DataSourceS;  TDataSource; 

Tables:  TTable; 

DataSource4:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

PubTitle  :  string; 

FacultyCode  istring; 

ResearchAreaTitle  :  string; 

SubAreasExist  rstring; 


with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNDFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi'om  HTML  form} 

PubTitle  :=  getSmallField(  TubTitle' ); 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

ResearchAreaTitle  :=  getSmalIField(  'ResearchAreaTitle' ); 

send(  '<HTMLXEIEAD>’ ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEAD><BODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do  (Search  Research  Area  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist  :=  Tablel.FieldByName('SubAreas').AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

sendC<h3>The  research  area  you  selected  to  add  the  publication  to  has  research'); 

send('subareas.  Choose  one  to  add  the  publication.</H3>'); 

send('<P>'); 

send('<CH'ITER> '); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-win/faculty/pub2_all.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle'"  + 
'VALUE='"+PubTitle+'">'); 

send('<IlSlPUT  TYPE="HIDDEN"  NAME="FacultyCode'"  + 
'VALUE='"+FacultyCode+'">'); 
sendC<TR>'); 
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send('<TD><SELECTNAME="ResearchSubAreaTitle"  TYPE="text"  SIZE=1>'); 


with  Query  1  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SgLAdd^TROM  RES_SUBA'); 

SQL.  Add^WEBERE  RES_SUBA.ResearchAreaTitle  =  +  ResearchAreaTitle  + 

open; 

first;  {puts  cursor  on  first  record  in  answer  table) 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName(ResearchSubAreaTitle').AsString+"'>'); 
send^ieldByName(ResearchSubAreaTitle').AsString); 
next;  (puts  cursor  on  next  record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<rABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Information">'); 
send('</FORM>'); 

send('<P>'); 


send(’<FORM  METHOD  =  POST  ACTION= '); 
send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<IlSIPUT  TYPE="HIDDEN"  NAME=''FacultyCode"  VALUE=’"+FacultyCodef' ">'); 
send('<TD  ALIGN=''CENTER’'xlNPUT  TYPE=SUBMIT  VALUE='' Cancel,  Return  to 
Catalog  Menu"x/rDx/FORM>'); 

send('<mix/TABLEx/CENTER>’); 
end  (end  subareas  =  yes) 
else  {else  no  subarea) 
begin 

with  Table2  do  {puts  cursor  on  correct  record  in  PagePUB  table) 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString  :=  PubTitle; 

FieldByName('FacultyCode'). AsString  ;=  FacultyCode; 
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GotoKey; 

end; 

with  Tables  do  {puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
open; 

SetKey; 

FieldByNameCPubTitle').  AsString  ;=  PubTitle; 
FieldByName('ResearchAreaTitle').AsString  :=  ResearchAreaTitle; 
GotoKey; 
end; 


if  (Table2.GoToKey  =  True)  and  (TableS.GoToKey  =  False)  then 
(User  already  has  pub  linked  to  research  page) 

begin 

send('<centerXh2>You  already  have  that  publication'); 
send('on  selected  research  page.  Publication  just  added  to'); 
send('selected  research  area.'‘^h2>'); 

Tables.  AppendRecord(IPubTitle,ResearchAreaTitle]); 

Tables,  close; 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action=  *); 

send('"http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPlJT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=’"+FacultyCode+'">'); 
send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</fonn> '); 
send('</CENTER>'); 
end 
else 

if  (Table2.GoToKey  =  False)  and  (TableS.GoToKey  =  True)  then 
(User  already  has  pub  linked  to  research  area) 

begin 

send('<centerxh2>You  already  have  that  publication'); 
send('in  selected  research  area.  Publication  just  added  to'); 
send('selected  research  page.</h2>'); 

Table2.AppendRecord([PubTitle,FacultyCode]); 
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Table2.close; 


sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>’); 
send('<mput  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

if  (Table2.GroToKey  =  Trae)  and  (Table3.GoToKey  =  True)  then 
{User  already  has  pub  linked  to  both  tables} 

begin 

send('<centerXh2>You  already  have  that  publication'); 
send('on  selected  research  page  and  research  area.</h2>'); 

sendHR; 

send('<P>'); 


send('<center> '); 

send('<FORM  method=post  action= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+’">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>’); 
end 
else 
begin 

{add  research  page  and  research  area} 

Table2.AppendRecord([PubTitle,FacultyCode]); 

Table2.  close; 

Table3 .  AppendRecord([PubTitle,ResearchAreaTitle]);  ' 
Table3.  close; 

send('<centerXh2>Your  Publication  was  successfully'); 
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send('added  to  the  selected  research  area  and  page!</h2>'); 

sendHR; 
send('<P>'); 
send('<center> '); 

send('<FORM  method=post  action= '); 
send("'ht^://131.120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE=''HIDDEN''  NAME="FacultyCode"  VALUE="'+FacultyCodef"'>'); 
send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
sendC</CENTER>’); 
end; 
end; 

send(  '</BODY></HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

{HPub  is  also  going  to  a  Subarea  of  a  Research  Area} 
unit  Pub2all; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal;  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel;  liable; 

DataSource2:  TDataSource; 

Table2:  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations } 
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end; 


var 

Foml;  TFonnl; 
implementation 
{$R  *.DFM) 

procedure  TForml.FormCreate(Sender:  TObject); 
var 

ResearchSubAreaTitle  istring; 

PubTitle  ;  string; 

FacuItyCode  :string; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite) 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiEtrorHandler; 
application-processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi’om  HTML  form} 

ResearchSubAreaTitle  :=  getSmaIlField(  ResearchSubAreaTitle' ); 

PubTitle  ;=  getSmallField(  "PubTitle' ); 

FacuItyCode  ;=  getSmallField(  Tacultycode' ); 

send(  '<HTMLXHEAD>’ ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do  (puts  cursor  on  correct  record  in  PUBSAREA  table} 
begin 
open; 

SetKey; 

FieldByName(ResearchSubAreaTitle').AsString  :=  ResearchSubAreaTitle; 
FieldByName(PubTitle').AsString  :=  PubTitle; 

GotoKey; 

end; 
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with  Table2  do  {puts  cursor  on  correct  record  in  PAGEPUB  table} 
begin 
open; 

SetKey; 

FieldByNameCFacultyCode'). AsString  :=  FacultyCode; 

FieldByName(PubTitle').  AsString  ;=  PubTitle; 

GotoKey; 

end; 

if  (Tablel.GoToKey  =  True)  and  (Table2.GoToKey  =  False)  then 
(User  already  has  pub  linked  to  research  page} 

begin 

send('<centerXh2>You  already  have  that  publication'); 
send('on  selected  research  subarea.  Publication  just  added  to'); 
send('selected  research  page.</h2>'); 

Table2.AppendRecord(|PubTitle, FacultyCode]); 

Table2.close; 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode^-'">'); 
send('<input  type="subnut"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

if  (Tablel.GoToKey  =  False)  and  (Table2.GoToKey  =  True)  then 
(User  already  has  pub  linked  to  research  area} 

begin 

send('<centerXh2>You  already  have  that  publication'); 
send('in  selected  research  page.  Publication  just  added  to'); 
send('selected  research  subarea.  </h2>'); 

Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 

Tablel.  close; 
sendHR; 
send('<P>'); 

send('<center> '); 
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send('<FORM  method=post  action= '); 

send("'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"’>'); 
send('<input  type="subniit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

if  (Tablel.GoToKey  =  True)  and  (TabIe2.GoToKey  =  True)  then 
{User  already  has  pub  linked  to  both  tables} 

begin 

send('<center><h2>You  already  have  that  publication'); 
send('on  selected  research  page  and  research  subarea. </h2>'); 

sendHR; 

send(’<P>'); 


send('<center> '); 

send('<FORM  method=post  action= '); 
send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE="’+FacultyCode+"’>'); 

send('<input  type="  submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
sendC</CENTER>'); 
end 
else 
begin 

{add  to  research  page  and  research  subarea) 

Table  1 .  AppendRecord([PubTitle,ResearchSubAreaTitle]); 
Table  1. close; 

Table2.AppendRecord([PubTitle,FacultyCode]); 

Table2.close; 

send('<centerXh2>Your  Publication  was  successfully'); 

send('added  to  the  selected  research  subarea  and  page!</h2>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 
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send('<INPUT  TYPE="HIDDEN"  NAME='TacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<mput  type="submit''  value=  "Catalog  Menu"> '); 
send('</fonn> '); 
sendC</CENTER>'); 
end; 

send(  '</BODYX/HnVlL>' ); 

closeStdout; 

closeApp(application); 

end; 
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5.  Delete  Publications 


unit  Dpubrrb; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

procedure  FonnCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

Facultycode  ;  string; 
begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
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sendPrologue; 

FacultyCode  ;=  getSmallFieldCFacultycode'); 

{standard  header  information} 

send(  '<HTMLXHEAD>' ); 

sendTitle(  "List  PubTitles  and  Combination  Menu' ); 

send(  '</EIEAD><BODYBGCOLOR="ADEAEA">' ); 

send  ('<H3>Choose  the  publication  you  want  to  delete  from  your'); 

send('  research  page,  faculty  research  area,  or  both.</Ei3>'); 

send('<center>'); 

send('<TABLE  BORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http;//13 1 . 120.39.65/cgi-win/faculty/del_rrb.exe">'); 

sendC<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 
send('<TR>'); 

send('<TDxSELECTNAME="PubTitle"  TYPE="text"  SIZE=1>'); 


with  Queryl  do 
begin 
close; 

SQL.  Add('SELECT  PubTitle'); 

SQL.  AddCFROM  PUBS'); 
open; 

first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  '"+FieldByName('PubTitle').AsString+'">'); 
send(FieldByName('PubTitle').AsString); 
next;  (puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send('value="Pub2Pg">Delete  From  Page'); 
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send('<input  type="radio"  naine="PubCombo"  value="Pub2Area">Delete  From  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Delete  From  Both 
</td>'); 

sendC<rRxtd  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Submit 
Information"x/td>'); 
sendC</FORM>'); 

send('<FORM  method=post  action="'+ 

■httpr/ZlS  1. 120.39.65/cgi-win/feculty/catalog.exe">'); 

send('<INPUT  TYPE=’'HIDDEN"  NAME="FacultyCode"  VALUE=’’'+FacultyCode+’">’); 
send('<TRxtd  ALIGN="CENTER"xinput  type="submit"  value="Cancel,  Return  to  Catalog 
Menu"x/td>'); 
send('</form>'); 
send('</table>'); 

sendC</BODY></HlML>'); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{Determines  From  Where  Pub  Is  Being  Deleted} 
unit  Delrrbl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGEEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

DataSourceS;  TDataSource; 

Query  1;  TQuery; 

Query2;  TQuery; 

DataSource2:  TDataSource; 

Tablel;  TTable; 
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procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender;  TObject); 
var 

PubTitle  ;  string; 

PubCombo  :  string; 

FacultyCode  :  string; 

begin 

with  CGBEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelMFilename  :=  paramstr(l); 
appHcation-onException  :=  cgiErrorHandler; 
appUcation.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  from  HTML  form} 

^bTitle  :=  getSmallField(  PubTitle' ); 

PubCombo  :=  getSmallFieldCPubCombo'); 

Facultycode  :=  getSmallField(PacultyCode'); 

send( '<HTMLXHEAD>’ ); 
sendTitle(  'Add  Pub  Menu' ); 

send(  ’</HEADxBODY  BGCOLOR="ADEAEA">' ); 

if  PubCombo  ='Pub2Pg'  then 
begin 

with  Tablel  do  (puts  cursor  on  correct  record  in  PAGEPub  table} 
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begin 

open; 

SetKey; 

Fiel(iByName('PubTitle').AsString  :=  PubTitle; 
FieldByName(TacultyCode').AsString  ;=  FacultyCode; 

GotoKey; 

end; 

if  (Tablel  .GoToKey  =  True)  then 
begin  {Delete  pub  from  PagePub  table) 
with  Query  1  do 
begin 
close; 

SQL.clear; 

sql.add(DELETE  FROM  PAGEPUB '); 
sql-addCWHERE  (PubTitle  = +  PubTitle  + '") '); 
sql.add('AND  (FacultyCode  =  +  FacultyCode  +  "') '); 

ExecSQL; 

end; 

send('<H3>The  publication  has  been  deleted  from  research  page.</H3>'); 
end 
else 
begin 

send('<h3>The  publication  does  not  exist  on  your  research  page.'); 
sendC<BR>'); 

send('Verify  your  selection  and  try  again.</h3>'); 
end; 

sendC<P>’); 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM  method==post  action=’"+ 

'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 
send('<input  type="submit"  value="Catalog  Menu  ">'); 
send('</form>'); 
send('</CENTER>'); 
end; 

if  PubCombo  -Pub2Area'  then 
begin 
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send('<H3>Delete  Publication  From  A  Research  Area</h3>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http;//13 1. 120.39.65/cgi-win/faculty/dpubarea.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE="'+PubTitlef' 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 


send('<TABLEBORDER=5  CELLPADDING=5>'); 


send('<TR>'); 

send('<TD  ALIGN=’'CENTER"xSELECT  NAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 


with  Query2  do 
begin 
close; 

SQL.Add('SELECT  ResearchAreaTitle '); 

SQL.Add(TROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName(ResearchAreaTitle').AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next;  (puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECt></TDx/TR>'); 

sendC<TRxTD  ALIGN=’'CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Submit 
Infonnation"x/TR>'); 
send('</FORM>’); 

send('<FORM  method=post  action="'+ 

'http;//13 1 . 120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<IlSIPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode4-"'>'); 
send('<TRXTD  ALIGN="CENTER"xinput  type=" submit"  value="Cancel,  Return  to 
Catalog  Menu  "x/TR>'); 
send('</form>'); 
send('</table>'); 
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end; 


if  PubCombo  =Pub2Both'  then 
begin 

send('<H3>Delete  Publication  From  A  Research  Area  And  Page</h3>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/faculty/dpubboth.exe">'); 
send('<INPUT  TYPE=''HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+"'>'); 
send('<IlSIPUT  TYPE="HIDDEN"  NAME="FacultyCode''  VALUE='"+FacultyCode+"'>'); 

sendC<TABLEBORDER=5  CELLPADDING=5>'); 

send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle"  TYPE=''text" 
SIZE=1>'); 

with  Queiy2  do 
begin 
close; 

SQL.Add(’SELECT  ResearchAreaTitle  ’); 

SQL.Add(FROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName(ResearchAreaTitle').  AsString+"'>'); 
send^ieldByName(ResearchAreaTitle').AsString); 
next;  (puts  cursor  on  next  record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE='' Submit 
Information"x/TR>'); 
sendC</FORM>’); 

send('<FORM  method=post  action='"+ 

'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 
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send('<TR><TD  ALIGN="CENTER"xinput  type=''subniit"  value="Cancel,  Return  to 
Catalog  Menu  "x/TR>'); 
send('</fomi>'); 
send('</table>'); 
end; 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If  Pub  Is  Being  Deleted  From  A  Research  Area} 
unit  Dpubare; 

interface 

uses 

SysUtils,  WinXypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DBTables,  DB,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvData  1 :  TCGIEnvData; 

DataSourcel;  TDataSource; 

Tablel:  TTable; 

DataSource2:  TDataSource; 

Queryl:  TQuery; 

DataSourceS;  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender;  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
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{$R*.DFM} 


procedure  TForml.FormCreate(Sender:  TObject); 
var 

ResearchAreaTitle  :  string; 

PubTitle  :  string; 

SubAreasExist  :  string; 

FacultyCode  istring; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paranistr(l); 
application.  onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

{receive  input  fields  fi’om  HTML  form} 

ResearchAreaTitle  :=  getSmallField(  ResearchAreaTitle' ); 

PubTitle  :=  getSmallField( 'PubTitle' ); 

FacultyCode  :=  getSmallFieldCFacultycode'); 

send(  '<HTML><HEAD>' ); 

sendTitle(  'Delete  Pub  From  Research  Area' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do  {Search  Research  Area  Table  for  record  to  be  modified} 
begin 
open; 

FindKey(|ResearchAreaTitle]); 

end; 

SubAreasExist  :=  Tablel. FieldByName('SubAreas').AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('The  research  area  you  selected  to  delete  the  publication  fi'om  has  research.'); 
send('subareas.  Choose  one  of  the  subareas  to  delete  the  publication.'); 
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send('<P>'); 
sendC<CENTER> '); 

send('<TABLE  B0RDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION=  •); 
send("'http://13 1. 120.39. 65/cgi-win/faculty/dpub2sub.exe">'); 

sendC<INPUT  TYPE=’’HIDDEN"  NAME=’'FacultyCode''  VALUE='"+FacultyCodef"'>'); 
send('<INPUT  TYPE="HIDDEN"  NAME=’'PubTitle"  VALUE="'+PubTitle+"'>'); 


send('<TRxTD  ALIGN="CENTER"^SELECT  NAME="ResearchSubAreaTitle" 
TYPE=''text''  SIZE=1>'); 


with  Query  1  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SQL.  Add(TROM  RES_SUBA'); 

SQL.AddCWHERE  RES_SUBA.ResearchAreaTitle  =  +  ResearchAreaTitle  + 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 

be^ 

sendC<OPTION  VALUE=  ’"+FieldByName(ResearchSubAreaTitle').AsStringf"'>'); 

send(FieldByName(ResearchSubAreaTitle').AsString); 
next;  {puts  cursor  on  next  record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send(’<TRxTD  ALIGN=''CENTER"xlNPUT  TYPE=SUBMIT  VALUE="  Submit 
Iiifi3rmation''></TD>'); 
send(’</FORM>'); 

send('<FORM  method=post  action='"+ 

'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE="HIDDEN''  NAME="FacultyCode"  VALIIE="'+FacultyCode+"'>'); 
send('<TR><TD  ALIGN="CENTER"><input  type="submit"  value="Cancel,  Return  to 
Catalog  Menu"x/TD>'); 
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send('</fomi>'); 

send('</TABLE>’); 


end  {end  subareas  =  yes} 
else  (else  no  subarea} 
begin 

with  Table2  do  (puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
open; 

SetKey; 

FieldByNanie('PubTitle').AsString  :=  PubTitle; 
FieldByNameCResearchAreaTitle').  AsString  :=  ResearchAreaTitle; 
GotoKey; 
end; 

if  (Table2.GoToKey  =  True)  then 
begin 

with  Queryl  do 
begin 
close; 

SQL.clear; 

sql  addCDELETE  FROM  PUBAREA'); 
sql.add('WHERE  (PubTitle  = +  PubTitle  +  "') '); 
sql.add('AND  (ResearchAreaTitle  = +  ResearchAreaTitle  +  "') '); 
ExecSQL; 
end; 

send('<center><h2>Publication  deleted  from  selected  research  area</h2>'); 
end 
else 
begin 

send('<h3>Publication  does  not  exist  on  selected  research  area.'); 
send('<BR>'); 

send('Verify  your  selection  and  try  again. </h3>'); 
end; 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM  method=post  action= '); 
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send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPXJT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=’"+FacultyCode+"'>'); 
send('<input  type="subimt"  value=  "Catalog  Menu"> '); 
send('</fonn> '); 
sendC</CENTER>’); 

end;  {end  else  of  no  subareas  exist} 

send(  '</BODYXEnML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If  Pub  Is  Being  Deleted  From  A  SubArea} 
unit  Dpub_sub; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal :  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Tablel:  liable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
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{$R  *.DFM} 


procedure  TFonnLFonnCreate(Sender:  TObject); 
var 

ResearchSubAreaTitle ;  string; 

PubTitle  ;  string; 

FacultyCode  :string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  ;=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 


{receive  input  fields  from  HTML  form} 

ResearchSubAreaTitle  :=  getSmallField(  ResearchSubAreaTitle' ); 

PubTitle  :=  getSmallField(  'PubTitle' ); 

Facultycode  :=  getSmallfieldCFacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Delete  Pub  From  Research  SubArea  Menu' ); 
send(  '</HEADXBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do  {puts  cursor  on  correct  record  in  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitIe').AsString  :=  PubTitle; 

FieldByName(ResearchSubAreaTitle'). AsString  :=  ResearchSubAreaTitle; 
GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  then 
begin 

with  Queryl  do 
begin 
close; 
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SQL.clear; 

sqladdCDELETE  FROM  PUBSAREA'); 

sqladdCWHERE  (PubTitle  = +  PubTitle  +  "') '); 

sql.add('AND  (ResearchSubAreaXitle  =  +  ResearchSubAreaTitle  +  "') '); 

ExecSQL; 

end; 

send('<centerXh3>Yoiir  Publication  was  successfully*); 
send('deleted  from  the  selected  research  subarea!</h3>'); 
end 
else 
begin 

send('<h3>Publication  does  not  exist  on  selected  research  subarea.'); 
send('<BR>'); 

send('Verify  your  selection  and  try  again</h3>'); 
end; 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://13 1.120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN’'  NAME="FacultyCode"  VALUE="'+FacultyCode+"'>'); 

send('<input  type="submit"  value=  "Catalog  Menu">  *); 

send('</fonn> '); 

send('</CENTER>'); 

send(  '<yBODYx/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

{IF  Pub  is  Being  Deleted  From  Both  Research  Page  And  Area} 
unit  Dpubbotl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
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Forms,  Dialogs,  DBTables,  DB,  Cgi; 
type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

DataSource2:  TDataSource; 

Queryl:  TQuery; 

DataSourceS;  TDataSource; 

Query2:  TQuery; 

DataSource4;  TDataSource; 

DataSourceS:  TDataSource; 

Table2:  TTable; 

Tables:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

ResearchAreaTitle  .string; 

PubTitle  :  string; 

SubAreasExist  :  string; 

FacultyCode  :string; 

be^ 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

{receive  input  fields  from  HTML  form) 

ResearchAreaTitle  :=  getSmallField(  'ResearchAreaTitle' ); 

PubTitle  ;=  getSmallField(  TubTitle' ); 

FacultyCode  ;=  getSmallFieldCFacultycode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Delete  Pub  From  Research  Area' ); 

send(  '<HEADXBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do  { Search  Research  Area  Table  for  record} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist Tablel. FieldByName('Sub  Areas').  AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('The  research  area  you  selected  to  delete  the  publication  from  has  research.'); 
send('subareas.  Choose  one  of  the  subareas  to  delete  the  publication.'); 

send('<P>'); 
send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http://13 1. 120.39. 65/cgi-win/faculty/dboth_rr.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCodef' ">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+'">'); 


send('<TRxTD  ALIGN="CENTER"xSELECT  NAME="ResearchSubAreaTitle" 
TYPE="text"  SIZE=1>'); 


with  Queryl  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL.  Add('FROM  RES_SUBA'); 
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SQL.  AddCWHERE  RES_SlJBA.ResearchAreaTitle  =  +  ResearchAreaXitle  + 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  "'+FieldByName('ResearchSubAreaTitle').AsString+"’>'); 
send(FieldByName('ResearchSubAreaTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECT></TDx/TR>'); 

send('<TRxiD  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE=''Submit 
Infonnation"x/TD>'); 
send('</FORM>'); 

send('<FORM  method=post  action="'+ 

'http://13 1 . 120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCodef' ">'); 
send('<TRXTD  ALIGN="CENTER"xinput  type="submit''  value="Cancel,  Return  to 
Catalog  Menu"x/rD>'); 
send('</fonn>'); 
send(’</TABLE>'); 
end  {end  subareas  =  Yes} 

else  {else  no  subarea} 

begin  {Delete  Account  firom  PagePub  and  PubArea  table} 

with  Table2  do  {puts  cursor  on  correct  record  in  PagePUB  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').  AsString  :=  PubTitle; 
FieldByNameCFacultyCode^AsString FacultyCode; 

GotoKey; 

end; 

with  Table3  do  {puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
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open; 

SetKey; 

FieldByNameCPubTitle').  AsString  :=  PubTitle; 
FieldByName('ResearchAreaTitIe').AsString  :=  ResearchAreaTitle; 
GrotoKey; 
end; 


if  (Table2.GoToKey  =  True)  and  (Tables. GoToKey  =  False)  then 

begin  (User  does  not  have  pub  on  research  page} 
with  Queiyl  do 
begin 
close; 

SQL.clear; 

sqladdCDELETE  FROM  PAGEPUB '); 
sgLadd^WHERE  (PubTitle  = +  PubTitle  +  ’") '); 
sql.add('AND  (FacultyCode  = +  FacultyCode  +  "') '); 

ExecSQL; 

end; 

send('<h3>Publication  deleted  from  selected  research  page.  Publication'); 
send('was  not  found  in  selected  research  area,  therefore,  there  was'); 
send('nothing  to  delete.  Please  verify  selection  and  try  again.</h3>'); 


send('<P>'); 


send('<center> '); 

send('<FORM  method=post  action= '); 
send('"http://13 1 . 120.39.65/cgi-win/feculty/catalog.exe"> '); 
send('<INPUT  TYPE="HroDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 

if  (Table2.GoToKey  =  False)  and  (TableS.  GoToKey  =  True)  then 

begin  {User  does  not  have  pub  on  research  page) 
with  Query2  do 
begin 
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close; 

SQL.  clear; 

sqLaddCDELETE  FROM  PUBAREA'); 

sql.add('WHERE  (PubTitle  = +  PubTitle  +  "') '); 

sql.add('AND  (ResearchAreaXitle  = +  ResearchAreaTitle  +  "') '); 

ExecSQL; 

end; 

send('<h3>Publication  deleted  from  selected  research  area. '); 
send(Publication  was  not  found  on  your  research  page,  therefore,'); 
send('there  was  nothing  to  delete. </h3>'); 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN’'  NAME="FacultyCode"  VALUE="'+FacultyCode+’">'); 
send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</fonn> '); 
send('</CENTER>'); 
end 
else 

if  (Table2.GoToKey  =  True)  and  (Table3.GoToKey  =  True)  then 

begin  {User  has  pub  in  both  tables} 

with  Queryl  do 
begin 
close; 

SQL.clear; 

sqLaddCDELETE  FROM  PAGEPUB '); 
sqladdCWHERE  (PubTitle  =  +  PubTitle  +  ’")  '); 

sql.addCAND  (FacultyCode  = +  FacultyCode  +  "') '); 

ExecSQL; 

end; 

with  Query2  do 
begin 
close; 

SQL.clear; 

sql.add(DELETE  FROM  PUBAREA’); 
sqladdCWHERE  (PubTitle  = +  PubTitle  + '")  '); 
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sqLaddCAM)  (ResearchAreaTitle  =  +  ResearchAreaTitle  +  "')  ’); 
ExecSQL; 
end; 

send('<h2>Publication  deleted  from  research  page  and  selected'); 
send('research  area  </h2>'); 

sendHR; 

sendC<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 
send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">  •); 
send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE="'+FacultyCode+"'>'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('«^form> '); 
send('</CENTER>'); 
end 
else 
begin 

send('<h2>The  publication  does  not  exist  on  selected  research  area'); 
send('and  page,  therefore,  there  is  nothing  to  delete.  Please  verify'); 
send('your  selections  and  try  again.</h2>'); 

send('<P>'); 

sendC<CE]SnER>'); 
send('<FORM  method=post  action= '); 
send("'http://13 1.120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 

end;  {end  else  of  no  subareas  exist} 
send(  '</BODYX/HTML>' ); 
closeStdout; 
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closeApp(application); 

end; 

end; 

end. 

{If  Pub  Is  Being  Deleted  From  Both  Research  Page  and  Subarea} 

unit  Dbothrr; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGDEnvData; 

DataSourcel:  TDataSource; 

Query  1;  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSourceS:  TDataSource; 

Tablet:  TTable; 

DataSourced:  TDataSource; 

Table2;  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 

ResearchSubAreaTitle :  string; 
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PubTitle  :  string; 

FacultyCode  :string; 


begin 

with  CGDEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  ~  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive  input  fields  fi'om  HTML  form} 

ResearchSubAreaTitle  :=  getSmallField(  TlesearchSubAreaTitle' ); 

PubTitle  :=  getSmallField(  'PubTitle' ); 

Facultycode  :=  getSmallfield(TacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Delete  Pub  From  Research  SubArea  Menu' ); 
send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do  (puts  cursor  on  correct  record  in  PagePUB  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').  AsString  :=  PubTitle; 
FieldByName(TacultyCode').  AsString  :=  FacultyCode; 

GotoKey; 

end; 

with  Table2  do  (puts  cursor  on  correct  record  in  PUBS  AREA  table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString  :=  PubTitle; 

FieldByName(ResearchSubAreaTitle'). AsString  :=  ResearchSubAreaTitle; 
GotoKey; 
end; 
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if  (Tablel.GoToKey  =  True)  and  (Table2.GoToKey  =  False)  then 


begin  (User  does  not  have  pub  on  research  page} 
with  Queryl  do 
begin 
close; 

SQL.clear; 

sql.addCDELETEFROMPAGEPUB '); 
sql.addC'WHERE  (PubTitle  =  +  PubTitle  +  "') '); 
sql.add('AISnD  (FacultyCode  =  +  FacultyCode  +  "') '); 

ExecSQL; 

end; 

send('<h3>Publication  deleted  from  selected  research  page.  Publication'); 
sendCwas  not  found  in  selected  research  subarea,  therefore,  there  was'); 
send('nothing  to  delete.  Please  verify  selection  and  try  again.  </h3>'); 


send('<P>'); 
send('<center> '); 

send('<FORM  method=post  action= '); 
send('"http;//13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input  type="subniit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CE]SriER>'); 
end 
else 

if  (Tablel.GoToKey  =  False)  and  (Table2.GoToKey  =  True)  then 

begin  (User  does  not  have  pub  on  research  page} 
with  Query2  do 
begin 
close; 

SQL.clear; 

aqladdCDELETE  FROM  PUBSAREA'); 

sql.add('WHERE  (PubTitle  =  '"  +  PubTitle  + '") '); 

sql.add('AND  (ResearchSubAreaTitle  = '"  +  ResearchSubAreaTitle  + '") '); 

ExecSQL; 

end; 
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send('<h3>Publication  deleted  from  selected  research  subarea. '); 
sendCPublication  was  not  found  on  your  research  page,  therefore,'); 
sendCthere  was  nothing  to  delete.</h3>'); 

send('<P>'); 

send('<center>  ’); 

send('<FORM  method=post  action= '); 

send("'http://13 1 . 120.39.65/cgi-win/feculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCode+'">'); 
send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>’); 
end 
else 

if  (Tablel.Gk)ToKey  =  True)  and  (Table2.GoToKey  =  True)  then 

begin  {User  has  pub  in  both  tables} 

with  Queryl  do 
begin 
close; 

SQL.  clear; 

sql.add(T>ELETE  FROM  PAGEPUB '); 
sql.add('WHERE  (PubTitle  = +  PubTitle  + '") '); 
sql.add('AND  (FacultyCode  =  +  FacultyCode  +  "') '); 

ExecSQL; 

end; 

with  Query2  do 
begin 
close; 

SQL.  clear; 

sqladdCDELETE  FROM  PUBSAREA'); 

sql.add('WHERE  (PubTitle  = +  PubTitle  +  "') '); 

sql.add('AND  (ResearchSubAreaTitle  = +  ResearchSubAreaTitle  +  "') '); 

ExecSCJL; 

end; 

send('<h2>Publication  deleted  from  research  page  and  selected'); 
send('research  subarea.</h2>’); 

sendHR; 
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send('<P>'); 


send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 

VALUE="'+FacultyCodef"'>'); 

send('<mput  type="subimt"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>’); 
end 
else 
begin 

send('<h2>The  publication  does  not  exist  on  selected  research  subarea'); 
send('and  page,  therefore,  there  is  nothing  to  delete.  Please  verify*); 
send('your  selections  and  try  again.</h2>'); 

send('<P>’); 

send('<CENTER>'); 
send('<FORM  method=post  action= '); 
send("'http;//13 1 . 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send(’<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE="'+FacultyCode+"’>'); 

send('<input  type="subniit"  value=  "Catalog  Menu"> '); 
sendC</fonn> '); 
sendC</CENTER>’); 
end; 

send(  ’</BODYX/HTML>' ); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 
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C.  SYSTEM  ADMINISTRATOR  SCRIPTS 


1.  System  Administrator  Menu 

unit  Syscatl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 

TForml  =  class(TForm) 

CGIEnvDatal :  TCGIEnvData; 
procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  ;=  cgrErrorHandler; 
application.processMessages; 

(standard  dynamic  HTML  header  information} 

createStdout; 

sendPrologue; 


143 


send(  '<HTMLXHEAD>' ); 
sendTitle(  Main  Menu' ); 

send(  '</EffiADxBODYBGCOLOR="ADEAEA">' ); 
send  ('<centerxHl>Main  Menu</Hl></center>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Accounts:</H3>'); 
send('<CENTER> '); 

send('<TABLEB0RDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http;//13 1. 120.39.65/cgi-win/sysad/sel_acc.exe">'); 

send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Add">’); 

send('</TDxyFORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/sel_Ist.exe">'); 

send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMrr  VALlIE="Modify">'); 

send('</TD>^ORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http;//13 1 . 120.39.65/cgi-win/sysad/bsel_lst.exe">'); 

send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMrr  VALUE="Browse">'); 

send('</IDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/dsel_lst.exe">'); 

send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMrT  VALUE="Delete">'); 

send('</TDx/FORM>'); 


send('<nRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Faculty  Research  Areas/SubAreas:</ED>'); 
send('<CENTER> '); 


144 


send(’<TABLEB0KDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send(’<FORM  METHOD  =  POST  ACTION= '); 
send("'htQ)  ://131. 120.39.65/ cgi-win/  sysad/sarea_jn.  exe">'); 
sendC<TD  ALIGN="CENTER">'); 
sendC<INPUT  TYPE=SUBMIT  VALUE="Add"></TD>'); 
send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-\vin/sysad/area_ls.exe">'); 
send('<TD  ALIGN="CENTER’'>'); 
sendC<INPUT  TYPE=SUBMIT  VAHJE="Modify''XTD>'); 
send('</FORM>'); 

send('«^ORM  METHOD  =  POST  ACTION=  ’); 
send("'http://13 1 . 120.39.65/cgi-win/sysad/brs_als.exe">'); 
send('<TD  ALIGN="CENTER">'); 

sendC<I]SIPUT  TYPE=SUBMIT  VALUE="Browse"></TD>'); 
sendC</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/sysad/darea_ls.exe">'); 
send('<TD  ALIGN="CENTER">'); 
send('<INPUT  TYPE=SUBMIT  VALUE="Delete"x/TD>'); 
send('</FORM>'); 

sendC</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Research  Centers/Labs:</H3>'); 
send('<CENTER> '); 

sendC<TABLEBORDER=5  CELLPADDING=5>’); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send("'http://13 1. 120.39.65/cgi-win/sysad/alab_fin.exe">'); 

send('<TD  ALIGN="CENTER"XINPUT  TYPE=SUBMIT  VALUE="Add">'); 

send('</TDx/FORM>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
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send("'http.7/13 1 . 120.39.65/cgi-win/sysad/inlab_lst.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Modify">'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/brs_lab.exe">'); 

send('<TD  ALIGN="CENTER"xl]SIPUT  TYPE=SUBMIT  VALUE="Browse">'); 

send('</TD></FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/dlab_lst.exe">'); 

send(’<TD  ALIGN="CENTER''xiNPUT  TYPE=SUBMIT  VALUE=''Delete">'); 

sendC</rD><FORM>'); 

send('</TRxrrABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<ED>Maintain  Research  Page;<7ED>'); 
send('<CE]SlTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/apgform.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMrT  VALUE="Add''>'); 

send('</TDx7FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/mpge_ls.exe">'); 

send('<TD  ALIGN="CENTER"xl]SIPUT  TYPE=SUBMIT  VALUE="Modify''>'); 

send('</TDXFORM>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 . 120.39. 65/cgi-win/sysad/brs_pge.exe">'); 

sendC<TD  ALIGN=”CENTER"><INPUT  TYPE^SUBMIT  VALUE="Browse">'); 

send('</TDx/FORM>’); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1. 120.39.65/cgi-win/sysad/dpge_Is.exe">'); 
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send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMIT  VALUE="Delete">'); 
sendC</TD></FORM>'); 

send('<yTRX/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

sendC<P>'); 

send('<H3>Maintain  Research  Sponsors;<H3>'); 
send('<CENTER> '); 

sendC<TABLEB0RDER=5  CELLPADDING=5>'); 
send('<TR>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1. 120.39.65/cgi-win/sysad/aspon_fin.exe">'); 

send('<TD  ALIGN="CENTER"xrNPUT  TYPE=SUBMIT  VALUE="Add">'); 

send('</TDx/FORM>’); 

sendC<FORM  METHOD  =  POST  ACTION=  ’); 

send("'http  ://131.120.39.65/ cgi-win/  sysad/brsist.  exe">'); 

send('<TD  ALIGN="CENTER"XI]SIPUT  TYPE=SUBMIT  VALUE="Browse">'); 

sendC</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION=  ’); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/dspo_lst.exe">'); 

send('<TD  ALIGN="CENTER"xi]SIPUT  TYPE=SUBMIT  VALUE="Delete">'); 

send('</TDx/FORM>'); 

send('</TRx/TABLEx/CENTER>’); 

send('<P>'); 

sendHR; 

send('<P>’); 

send('<H3>Maintain  Publications:</H3>'); 
sendC<CENTER> '); 

sendC<TABLEBORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

sendC<FORM  METHOD  =  POST  ACTION=  ’); 
send("'http://13 1. 120.39.65/cgi-\vin/sysad/pub_iTb.exe">'); 
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send('<TD  ALIGN="CElSmBR"xlNPUT  TYPE=SUBMIT  VALUE="Add"x/TD>'); 
send('</FORM>'); 

send(’<FORM  METHOD  =  POST  ACTION= '); 
send("'http;//13 1. 120.39.65/cgi-■wm/sysad^^s_pub.exe">'); 

send('<TD  ALIGN="CENTER"XI]SIPUT  TYPE=SUBM[T  VALUE="Browse"x/TD>'); 
send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-win/sysad/dpub_rrb.exe">'); 

send('<TD  ALIGN="CENTER"XINPUT  TYPE=SUBMIT  VALUE="Delete"x/TD>'); 
send('</FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Faculty  Information:</EI3>'); 
send('<CElSITER>  *); 

send('<TABLE  BORDER=5  CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 
send("'http://13 1 . 120.39.65/cgi-wiii/sysad/fac_lst.exe">'); 
send('<TDxiNPUT  TYPE=SUBMIT  VALUE="Modify"x/TD>'); 
send('</FORM>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 . 120.39.65/cgi-'win/sysad/brs_fac.exe">'); 
send('<TDXDSIPUT  TYPE=SUBMIT  VALUE="Browse"x/TD>'); 
send(’</FORM>'); 

send('</TR></TABLE></CENTER>'); 

send(  '<^ODYx/htML>'  ); 
closeStdout; 
closeAPP(application); 
end; 
end; 
end. 
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2.  Add  Accounts 


unit  Selaccl; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal :  TCGIEnvData; 
procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGEEnvDatai  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

send(  '<HTML><HEAD>' ); 

sendTitle(  'Select  Account  Type' ); 

send(  '</EIEADxBODYBGCOLOR="ADEAEA">' ); 
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send  ('<H2>Choose  the  type  of  account  you  want  to  add.</H2>'); 
sendC<P>'); 

send('<Center>'); 

send('<FORM  method=^ost  action- ); 

send("'http://13 1. 120.39.65/cgi-win/sysad/ad_accfin.exe">'); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<TRxtdxinput  type="radio"  checked  name="AccountType" '); 
send('value="FacAcc">Faculty  Account'); 

send('<input  type="radio"  name="AccountType"  value="SysAcc">Sys  Admin  Account</td>'); 
sendC</TABLE> '); 

send('<input  type="  submit"  value="Send  Reply 
send('</form>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<FORM  method=post  action- ); 

send("'http;//13 1. 120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<input  type="submit"  value="Cancel,  Return  to  Main  Menu">'); 

send('<yform>'); 

sendC</CENTER>'); 

send('<;(BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 

end; 

end. 

{Add  Accounts  Forms} 
unit  Adaccfin; 

interface 

uses 

SysUtDs,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 

Forms,  Dialogs,  Cgi; 
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type 

TForml  =  class(TForm) 

CGDEnvDatal:  TCGIEnvData; 
procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

AccountType  :  String; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

(standard  dynamic  HTML  header  information} 

createStdout; 

sendPrologue; 

AccountType  :=  getSmallField(AccountType'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Faculty  Account' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

if  AccountType  =  TacAcc'  then 
begin 

send  ('<centerXH2>Add  Faculty  Account</H2x/center>'); 
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send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://13 1. 120.39. 65/cgi-win/sysad/add^acc.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME=''AccountType"  VALUE="'+AccountType+"'>'); 
send('<TABLEBORDER=5  CELLPADDING=5> '); 

send('<lR><TD>Faculty  Code:</TD><TD><input  type="text'' '); 

send('nanie="FacultyCode"  si2e=5  maxlength=5x/TD> '); 
send('<TR><TD>Password:</rD><TDxinput  type="password" '); 

send('name="Pwd"  size=10  maxlength=10>  </td> '); 
send('<TR><TD>Verify  Password:</TD><TDxinput  type="password" '); 
send('naine="Pwd2"  size=10  maxlength=10>  </TD> '); 

send('</TABLE> '); 
send('<P>'); 

send('<input  type="subniit"  value=  "Add  Account"> '); 
send('<input  type="reset"  value="ClearForm">'); 
send('</fomi> '); 
end 
else 
begin 

send  ('<center><H2>Add  System  Admin  Account</H2x/center>'); 
send('<center> '); 

send('<FORM  method=post  action-); 

send("'http://13 1. 120.39.65/cgi-win/sysad/adds_acc.exe"> '); 

send(’<INPUT  TYPE="HIDDEN"  NAME="AccountType"  VALUE="'+AccountType+"'>'); 
send('<TABLEBORDER=5  CELLPADDING=5> '); 

send('<TR><TD>LoginID;</TDxTDxinput  type="text" '); 

send('name="LoginID"  size=10  maxlength=10x/lD> '); 
send('<TR><TD>Password:</TD><TDxinput  type="password" '); 

send('name="Password"  size=10  maxlength=10>  </td> '); 
send('<TR><TD> Verify  Password:</TDxTDxinput  type="password" '); 
send('name="Password2"  si2e=10  maxlength=10>  </TT)> '); 

send('</TABLE> '); 
send('<P>'); 


send('<input  type="submit"  value=  "Add  Account"> '); 
send('<input  type="reset"  value="Clear  Fonn">'); 
send('</form> '); 
end; 
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sendHR; 

send('<FORM  method=post  action-); 

send("'http://131.120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<input  type="subniit"  value=''Cancel,  Return  to  Main  Menu 

send('</form>'); 

send('</CENTER>'); 

send('</BODYx/EnML>'); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{Add  Faculty  Account  to  Table} 

unit  Addfacc; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

Tablel:  TTable; 

DataSourcel;  TDataSource; 
procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Foiml:  TForml; 


implementation 
{$R  *.DEM} 
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procedure  TFortnl.FormCreate(Sender:  TObject); 


var 

FacultyCode ;  string; 

Pwd  :  string; 

Pwd2  :  string; 

AccountType ;  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.processMessages; 

(HTML  page  header  info} 

createStdout; 

sendPrologue; 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

Pwd  :=  getSmallField(  Pwd' ); 

Pwd2  :=  getSmallField(  'Pwd2' ); 

AccountType  :=  getSmallfield(' AccountType'); 

send(  '<HTMLxHEAD>' ); 

sendTitle(  'Add  Faculty  Account' ); 

send(  '</HEADXBODYBGCOLOR="ADEAEA">' ); 

with  Tablel  do 
begin 
open; 

SetKey; 

FieldByName(PacultyCode').AsString  ;=  FacultyCode; 
GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  or  (FacultyCode  =  CGINotFound)  then 
begin 

send('<h3>Faculty  code  already  exists  or  you  did  not  enter  one.'); 
send(Please  try  again.</h3>'); 
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send('<p>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORMMETHOD=POST  ACTION='); 
send("'http;//13 1 . 120.39.65/cgi-win/sysad/ad_accfin.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="AccountType"  VALUE="'+AccountType+"'>'); 
send('<INPUT  TYPE=SUBMIT  VALUE="Retum  to  Faculty  Account  Fonn">'); 
send('</FORM>'); 
send('</CENTER>’); 
end 

else  {valid  FacultyCode  chosen} 
begin 

if  Pwd  o  Pwd2  then 
begin  (passwords  don't  agree  } 

send('<h2>  "Password  Msmatch"  !</h2>'); 
send('<h3>Please  verify  password  choice,  and  try  again.</h3>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send("'http://13 1 . 120.39.65/cgi-win/sysad/ad_accfin.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="AccountType" 

VALUE="'+AccountTypef'">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Retum  To  Faculty  Account  Form">'); 
send('</FORM>'); 
send('</CENTER>’); 
end 

else  (good  faculty  account} 
begin 

Tablel .  AppendRecord([FacultyCode,  Pwd]); 

Tablel. close; 

send('<h3>The  account  information  was  successfully  entered  !</h3>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 

send("'http://13 1 . 120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Retuni  To  Main  Menu">'); 

send('</FORM>'); 

send('</CENTER>'); 
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end; 

end; 

send(  '</BODYx/EnML>' ); 
closeStdout; 
closeApp(application); 
end; 

end; 

end. 

{Add  System  Account  to  Table} 
unit  Addsacc; 

interface 

uses 

SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 

TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel;  TDataSource; 

Tablel;  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 

Forml:  TForml; 
implementation 
{$R  *.DFM} 

procedure  TForml. FormCreate(Sender;  TObject); 
var 

LoginID  ;  string; 

Password  :  string; 
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Password2  :  string; 
AccountType :  string; 
begin 


with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application-onException  ;=  cgiErrorHandler; 
application.processMessages; 

(HTML  page  header  info} 

createStdout; 

sendPrologue; 

LoginID  ;=  getSmallField(  'LoginID' ); 

Password  :=  getSmallField(  Password' ); 

Password2  :=  getSmaI]Field(  'Password2' ); 

AccountType  :=  getSmallfield(AccountType'); 

send(  '<HTMLXHEAD>' ); 

sendTitle{  'Add  System  Account' ); 

send(  '</EJEADXBODYBGCOLOR="ADEAEA">' ); 

with  Table!  do 
begin 
open; 

SetKey; 

FieIdByName('LoginID').AsString  ;=  LoginID; 

GotoKey; 

end; 

if  (Tablel.GoToKey  =  True)  or  (LoginID  =  CGINotFound)  then 
begin 

send('<h3>LoginID  already  exists  or  you  did  not  enter  one.'); 

sendCPlease  try  again. </h3>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM  ME’raOD=POST  ACTION='); 
send('"http://13 1 . 120.39.65/cgi-win/sysad/ad_accfin.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="  AccountType"  VALUE='"+AccountType+'">'); 
send('<INPUT  TYPE=SIIBMIT  VALUE="Retum  to  Sys  Admin  Account  Form">'); 
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send('</FORM>'); 

send(’</CENTER>'); 

end 

else  {valid  LoginID  chosen} 
begin 

if  Password  o  Password!  then 
be^  (passwords  don't  agree  } 

send('<h2>  "Password  Mismatch"  !<yh2>'); 
send('<h3>Please  verify  password  choice,  and  try  again. </h3>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send("'http://13 1 . 120.39.65/cgi-win/sysad/ad_accfin.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="AccountType" 
VALUE="'+AccountType+’">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Retum  To  Sys  Admin  Account  Form">'); 
sendC</FORM>'); 
send('</CENTER>'); 
end 

else  (good  sys  Ad  account} 
begin 

Tablel .  AppendRecord([LoginID,  Password]); 

Tablel. close; 

send('<h3>The  account  information  was  successfully  entered  !</h3>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send('"http://13 1 . 120.39.65/cgi-win/sysad/syscat.exe">'); 
sendC<INPUT  TYPE=SUBMIT  VALUE="Retum  To  Main  Menu">'); 
send('</FORM>'); 
send('</CENTER>’); 
end; 
end; 

send(  '</BODYX/EnML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 
end. 
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